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EXECUTIVE  SUMMARY 


The  Ocean  Programs  Office  (Code  500)  of  the  Naval  Ocean  Research  and  Devel¬ 
opment  Activity  (NORDA)  arovided  funds  in  the  fall  of  1978  to  the  Ocean  Science 
and  Technology  Laboratory  Code  350)  for  the  development  of  a  versatile  XBT 
Data  Acquisition  System.  The  expendable  bathythermograph  (XBT)  device  is 
used  extensively  to  obtain  ocean  temperature  profiles  at  selected  locations. 
Relatively  recent  interest  in  the  mixing  and  energy  propagation  mechanisms 
of  the  upper  mixed  layers  of  the  ocean  requires  the  collection  of  thermal 
data  at  rates  and  accuracies  greatly  exceeding  the  capability  of  commercially 
available  XBT  equipment.  The  purpose,  then,  of  this  development  was  the 
creation  of  a  very  flexible  system  that  could  be  software  programmed  to 
collect  XBT  data  from  one  to  four  probes  falling  simultaneously  or  in  rapid 
succession  at  data  rates  of  up  to  20  samples  per  second  per  probe.  The 
system  resolution  is  0.01°C. 

This  manual  describes  the  functional  operation,  interconnections  for 
system  set-up,  calibration  procedures,  and  library  operating  programs  of  the 
developed  system.  The  system  is  quite  flexible  in  that  the  user  can  easily 
modify  any  of  thef^ibrary  programs  or  develop  new  programs  which  tailor  the 
system  performance™  his  specific  needs.  Considerable  redundancy  has  been 
provided  in  the  design  so  that  failures  can  be  quickly  bypassed;  and  the 
electronics  are  modularly  constructed  so  that  repairs  can  be  effected  by 
rapid  replacement.  In  addition  to  collection  and  storage  of  raw  data,  the 
system  has  the  ability  to  make  off-line  conversions  to  engineering  units  and 
presentation  of  the  converted  data  in  numerous  printed  and  plotted  formats 
for  assessment  of  quality  and  completeness.  These  "data  looks"  can  also  be 
used  to  fine  tune  an  experiment  scenario  on  site  in  order  to  maximize 
results . 

Immediately  after  completion  of  the  system,  it  was  utilized  aboard 
USNS  KANE  to  support  an  internal  wave  study's  portion  of  HYDRO  79.  The 
result  of  this  and  other  data  collection  and  analysis  efforts  is  reported 
aVin  NORDA  Technical  Note  58  entitled,  "Oceanic  Environmental  Background  Obser- 
w  vations  in  the  Sargasso  Sea  During  September  1979".  The  system  has  also  been 
used  aboard  the  USNS  LYNCH  during  the  ATOM  I  experiment  in  December  1979  and 
January  1980.  The  results  of  this  experiment  should  be  published  in  a  NORDA 
reoort  in  late  FY  80.  During  these  two  at-sea  operations,  the  XRT 
Data  Acquisition  System  demonstrated  extremely  reliable  operation  with  the 
only  failure  occurring  in  the  backup  tape  recording  unit. 

This  system  is  available  to  ocean  researchers.  Those  having  an  interest 
in  making  use  of  this  system  should  contact  the  Ocean  Proorams  Office 
at  NORDA. 
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XBT  Data  Acquisition  System 
Operators  Manual 

1.0  In  '•oduction 

1.1  System  Purpose 

The  XBT  Data  Acquisition  System  has  been  designed  to  facilitate 
rapid  collection  of  ocean  thermal  data  from  one  to  four  vertically 
descending  sensor  probes.  The  system  is  capable  of  operating  in  a  number 
of  modes  and  is  sufficiently  general  purpose  to  permit  interfacing  with 
oth?r  oceanographic  sensors  if  such  should  become  desirable  in  the 
future. 

1.2  System  Features 

The  System  accepts  XBT  data  from  up  to  four  launch  stations  as  shown 
in  Figure  1.  The  Launch  Stations  contain  signal  conditioning  circuitry 
which  amplifies  the  weak  temperature  sensor  signal  and  sends  it  over  an 
interconnecting  cable  to  the  Data  Interface  Unit.  Circuitry  is  also 
provided  at  the  Launch  Station  to  audibly  notify  the  operator  when  to 
load  and  launch  an  XBT  probe. 

The  Data  Interface  Unit  accepts  the  analog  signals  from  each  of  the 
Launch  Stations  and  performs  additional  signal  conditioning  prior  to 
conversion  to  digitized  values.  This  conditioning  consists  of  signal 
biasing  and  further  amplification  so  that  selected  portions  of  the 
temperature  range  can  be  recorded  with  maximum  resolution.  In  the 
present  configuration,  the  temperature  range  is  10°C  to  30°C  with  a 
maximum  resolution  of  10  millidegrees  (0.01°C).  Circuitry  is  also 
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provided  in  the  Data  Interface  Unit  for  generation  of  the  load/launch 
commands  and  for  powering  of  Launch  Station  and  Data  Interface 
components. 

The  Data  Interface  Unit  sends  the  conditioned  signal  from  each 
launch  station  to  a  channel  of  the  four  channel  analog-to-digital  (A/D) 
converter.  The  four  channel  A/D  operates  under  program  control  of  the 
HP9825  calculator  and  converts  the  analog  signal  from  each  active 
launch,  station  into  digitally  coded  values  at  the  programmed  sample 
rate  of  20  samples  per  second  per  channel. 

Each  digital  output  from  the  A/D  converter  is  transferred  via  the 
data  bus  into  the  HP9825  calculator  for  examination  and  storage.  During 
the  various  data  collection  modes,  the  calculator  determines  when  to  take 
data,  what  channels  are  active,  what  data  is  valid,  and  where  the  data 
should  be  stored  until  it  is  needed  for  quality  assurance  inspection. 
Details  of  the  programs  written  for  collection  of  XBT  data  are  contained 
in  section  3.0  System  Operation.  During  a  data  collection  operation, 
valid  data  is  stored  on  cassette  tape  within  the  HP9825  and  on  9-track 
digital  tape. 

Once  a  data  collection  period  has  been  completed  (for  example, a  leg 
of  data  stations)  the  stored  data  can  be  recalled  for  formatting, 
calculation,  and  plotting  on  the  X-Y  plotter.  Plotting  routines  have 
been  supplied  (see  section  3.3)  which  permit  graphing  of  the  data  in  two 
ways.  The  first  allows  each  temperature  data  point  to  be  plotted  as  a 
function  of  depth  for  a  given  probe  and  for  successive  probes  to  be 
plotted  with  an  off-set  so  that  the  time  series  of  temperature  profiles 
can  be  examined.  The  second  routine  permits  plotting  of  the  temperature 
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deviations  about  mean  temperature  values  thus  yielding  plots  of 
temperature  variability  as  a  function  of  depth.  Succtssive  plots  are 
also  made  by  the  second  routine  for  inspection  of  the  time  series. 

1.3  Performance  Characteristics 

The  XBT  Data  Acquisition  System  in  the  present  hardware/software 
configuration  performs  with  the  following  characteristics.  It  should  be 
noted,  however,  that  these  characteristics  are  not  fixed  and  can  be 
widely  varied  to  suit  other  data  collection  requirements. 

1)  The  system  has  four  identical  launch  stations,  each  capable  of 
being  connected  to  a  hand-held  launcher.  The  launchers  and 
launch  stations  are  capable  of  handling  any  of  the  Sippican  T 
series  probes;  however,  software  programs  have  been  provided  only 
for  T  7  and  T  11  types. 

2)  Each  of  the  four  launch  station  channels  is  calibrated  to  accept 
temperature  data  between  +10°C  and  +30°C  with  a  resolution  of  1 
part  in  2000  (0.05%). 

3)  The  sample  rate  is  approximately  20/second,  with  each  sample  being 
time  related  to  any  other  sample  o*  that  particular  probe  profile 

to  within  ±  50  milliseconds. 

4)  Launch  Stations  (data  channels)  #1  and  #2  are  designateu  for 
launch  of  T  7  probes  ,  with  one  and  or.’y  one  T7  probe  allowed 
in  the  water  at  a  time.  Launch  Station  #3  is  designated  for  Til 
probes  only.  Launch  Station  #4  is  a  spare. 


5)  A  T7  probe  can  be  launched  at  any  time  (see  Section  3.0  for 
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details).  The  next  T7  can  be  launched  as  soon  as  the  calculator  ' 
records  the  previous  probe  data  and  so  alerts  the  operator. 

6)  A  Til  probe  can  be  launched  at  any  time  provided  it  is  synchronized 
with  a  T7  launch  and  the  system  operator  has  activated  this  special 
mode  (see  Section  3.2). 
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7)  Collected  temperature  data  is  recorded  on  the  calculator's  cassette 
tape  and  on  an  external  9  track  digital  tape  in  raw  form  and  scaled 
engineering  units.  During  some  modes  of  data  collection,  small  gaps 
of  a  few  seconds  duration  will  occur  in  the  recorded  data;  each  data 
point  recorded  can  be  time  positioned  to  within  +C.05  seconds, 
however,  for  each  profile. 

8)  Data  quality  assurance  programs  have  been  provided  which  permit  graphical 
plotting  and  inspection  of  the  temperature  profiles  and  the  variations 
about  profile  means  (see  Section  3.3  for  details). 
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2.0  System  Configuration 
2.1  System  Interconnections 

Figure  2  illustrates  the  cable  interconnections  that  need  to  be  made 
between  each  of  the  functional  units.  The  following  considerations  will 
assist  in  properly  configuring  the  system: 

1)  The  Launch  Station  to  Data  Station  cables  are  identical  with  the  cable 
ends  having  three  color  coded  wires  with  spade  lugs.  The  cable  end 
connected  to  the  Launch  Station  must  have  these  wires  connected  to  the 
terminal  strip  on  the  box  such  that  each  color  is  matched  to  a  like 
color  on  the  handheld  launcher  cable. except  that  the  black  wire  is  not 
connected;  i.e.,  only  the  red  and  green  wires  are  connected  to  the 
handheld  launcher  red  and  green  wires.  For  any  Launch  Station  not 
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connected  to  a  handheld  launcher,  connect  a  calibration  resistor  selected 
from  Table  1  Section  3.2  across  the  red  and  green  wires.  For  each 
Launch  Station  connected  to  a  handheld  launcher,  insure  that  an  XBT  probe 
is  loaded  prior  to  conducting  any  calibration  checks. 

2)  Remember  that  whichever  Launch  Station  is  connected  to  Data  Station  #1 
connector  becomes  Launch  Station  #1. 

3)  Connection  between  the  Data  Station  and  the  A/D  converter  is  via  four 
individual  cables  and  phono  plugs.  Each  plug  Is  numbered  as  to  the 
channel  it  must  be  plugged  Into  on  the  rear  of  the  A/D  converter. 

Swapping  of  these  phono  plugs  between  A/D  channel  Inputs  should  only  be 
done  to  work  around  hardware  faults  in  the  Data  Station  as  discussed 

in  Section  4.1. 

4)  Connections  between  the  HP9825  calculator  and  the  various  peripherals 
(A/D  converter,  plotter,  and  9  track  digital  tape  recorder)  can  be 
made  "daisy  chain"  or  "star".  The  HPIB  Interface  plugs  into  any 

one  of  the  three  slots  at  the  rear  of  the  9825  and  the  other  end 
connects  to  any  one  of  the  peripherals.  HPIB  interconnect  cables 
are  simply  stacked  on  top  of  the  interface  cable  end  connector 
and  routed  to  the  other  peripherals  for  their  connection  to  the  bus. 

5)  For  the  HP9825  calculator  to  function  properly  it  must  have  a 
real  time  clock  module  plugged  into  one  of  the  three  slots  at  the 
rear  of  the  unit  and  the  following  Read  Only  Memories  (ROMs) 
plugged  into  slots  at  the  front  of  the  machine  just  below  the 
keyboard:  String-Advanced  Programming  and  9872A  Plotter-General 
1-0  -  Extended  I/O. 

6)  In  making  power  connections  to  each  of  the  electronic  enclosures 
it  is  very  important  to  connect  each  unit  to  the  same  phase  of 
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the  115VAC  60H2  power  system  to  prevent  troublesome  AC  power 
ground  loops.  It  is  recommended  that  all  units  be  plugged  into  a 
power  strip  and  the  strip  be  plugged  into  a  single  power  source 
outlet.  If  this  measure  does  not  completely  remove  power  ground 
loops,  it  is  recommended  that  an  isolation  transformer  of  500  VA 
rating  or  greater  be  placed  between  the  power  strip  and  the  power 
source  outlet. 

7)  Grounding  is  very  Important  to  proper  operation  of  the  XBT  Data 
Acquisition  System.  Signal  and  power  grounds  and  shields  have 
been  carefully  carried  through  the  system  to  a  single  point  on 
the  chassis  of  the  Data  Station.  The  ground  post  located  near 
the  power  socket  should  be  connected  via  a  ground  wire  of  AWS  #14 
or  #16  to  a  bright  clean  hull  (ship)  ground.  CAUTION:  The 
importance  of  this  hull  ground  being  of  high  quality  cannot  be 
overemphasi zed. 

2.2  Location  of  Launch  Stations 

The  four  identical  Launch  Stations  are  completely  portable  and  can 
be  located  anywhere  desired.  The  present  system  is  supplied  with  100 
foot  cables  for  each  Launch  Station  but  longer  cables  could  be  used  if 
desired.  In  locating  the  Launch  Stations,  the  following  considerations 
will  be  helpful : 

1)  The  Launch  Station  operator  is  alerted  for  "load"  and  "launch" 
operations  audibly,  therefore,  the  Launch  Station  should  not  be 
located  next  to  loud  sources  of  extraneous  noise. 

2)  The  Launch  Station  is  moisture  resistant  and  relatively  splash 


9 


proof’s  however,  because  of  the  connections  required  for  the  hand 
held  XBT  probe  launcher  the  connection  terminal  strip  is  exposed. 
Once  connections  are  made,  the  strip  should  be  coated  with  a 
layer  of  RTV  for  waterproofing.  In  addition,  it  would  be  wise  to 
place  the  box  at  a  location  protected  from  sea  spray,  rain,  and 
uirect  sunshine. 

3)  The  Launch  Station  enclosure  is  part  of  the  system  electrostatic 
shield  and  should  not  be  permitted  to  touch  the  metallic  hull; 
otherwise  ground  loops  may  result.  Rubber  Insulating  feet  have 
been  provided  on  the  enclosure  bottom  to  prevent  contact  with  the 
hull  and  an  insulating  coating  applied  to  the  top  and  sides,  but 
care  should  be  taken  to  insure  that  objects  do  not  touch  or  rest 
against  the  box. 

2.3  Power  and  Cooling  Considerations 

All  necessary  Launch  Station  power  is  provided  by  the  Data  Station 
through  the  interconnecting  cabling.  The  Data  Station  is  powered  from  the 
same  internal  supplies  that  power  each  of  the  Launch  Stations.  All  other- 
units  in  the  system  contain  theirown  internal  supplies.  The  Data 
Station,  Calculator,  and  peripherals  are  in  turn  supplied  by  115VAC  60HZ 
10  power.  The  115VAC  supply  should  be  clean  of  transients  and  reasonably 
well  regulated.  This  115VAC  source  should  be  suitable  for  operation  of 
computer  equi pment . 

Cooling  will  not  be  a  problem  for  those  items  located  in  air 
conditioned  spaces  such  as  the  Data  Station,  Calculator,  and  peripherals. 
Some  care  needs  to  be  exercised  f o.  the  Launch  Station,  however.  The 
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Launch  Station  is  sealed  rather  tightly  to  inhibit  moisture  penetration, 
and  therefore  also  inhibits  the  escape  of  heated  air.  The  Launch  Station 
box  should  be  kept  in  a  shaded  area  if  at  all  possible  where  ambient  air 
is  free  to  circulate  around  the  enclosure. 

2.4  Cautions  Concerning  Grounds 

XBT  operating  environments  are  usually  quite  noisy  electrically. 

This  electrical  noise  can  cause  significant  signal  errors  and  even 
failure  of  equipment  operation.  Because  the  XBT  probes  require  a  return 
signal  through  the  seawater  and  ship's  hull,  considerable  attention  must 
be  paid  to  shielding  and  the  prevention  of  ground  loop  currents.  The 
following  cautions  are  advisea: 

1)  lhe  Launch  Stations  should  be  insulated  from  any  metallic  surface 
by  resting  only  on  its  rubber  feet.  No  metallics  should  touch 
any  portion  of  the  housing  (box). 

i 

2)  The  Data  Station  should  be  grounded  to  the  hull  at  one  point  only 
and  the  quality  of  this  ground  should  be  very  good. 

3)  All  115VAC  power  connections  should  be  made  to  a  single  power 
strip  and  the  strip  plugged  into  a  source  of  computer  grade 
power.  If  ground  loops  do  appear  to  occur,  then  an  isolation 
transformer  should  be  used  between  the  strip  and  the  computer 
grade  power  source. 

4)  Peripheral  units  may  have  to  be  insulated  from  conducting 
surfaces.  Particular  attention  should  be  paid  to  the  potential 
need  to  insulate  the  9  track  tape  recorder  from  hull  ground. 


3.0  System  Operation 
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CAUTION  -  Before  attempting  to  load  programs  into  the  calculator  or 
perform  any  system  operations,  be  sure  that  the  system  interconnections 
specified  in  Section  2.1  have  been  made. 

3.1  Loading  Programs 

Prior  to  actual  loading  of  software  programs  into  the  calculator's 
memory,  it  will  be  necessary  to  perform  the  following  set-up  steps: 

1)  Place  the  POWER  switch  on  the  Dylon  Model  1015A  Magnetic  Tape 
Formatter  into  the  ON  position. 

2)  Push  the  red  POWER  button  on  the  DYLON/CIPHER  Tape  Drive  Unit  so 
that  it  lights  up. 

3)  Load  a  blank  9-track  data  tape  onto  the  bottom  spool  of  the  Tape 
Drive  Unit  and  thread  the  tape  onto  the  upper  spool  by  following 
the  arrows  painted  on  the  Tape  Drive  Unit.  (NOTE:  Make  sure 
that  the  WRITE  ENABLE  ring  i_s  attached  to  the  tape). 

4)  Push  the  LOAD  button  on  the  Drive  Unit  and  the  tape  should 
tension  itself.  If  it  does  not,  try  pushing  the  button  again. 
The  tape  should  proceed  to  the  load  point  after  the  next  step, 
and  only  then  will  the  LOAD  botton  light  up. 

5)  After  the  tape  has  tensioned,  push  the  LOAD  button  again.  The 
tape  should  proceed  to  the  LOAD  point  and  stop;  then  the  LOAD 
button  should  light  up.  (NOTE:  If  the  tape  refuses  to  stop 
within  about  15  seconds,  press  the  REWIND  button  while  the  tape 


is  still  moving  and  the  same  effects  will  be  achieved) 


6)  Now  press  the  ON  LINE  button  so  that  it  lights  up.  The  9-track 
digital  tape  recorder  is  now  ready  to  receive  or  send  data. 

7)  Next  place  the  POWER  switch  on  the  A/D  Converter  into  ON 
position. 

8)  Place  the  AC  LINE  switch  on  the  right  side  of  the  calculator  into 
the  LINE  (ON)  position.  The  "lazy  T"  (K)  should  appear  on  the 
left-hand  side  of  the  small  display  screen. 

9)  Type  the  following  on  the  calculator  and  press  EXECUTE:  (NOTE: 

Do  not  type  the  slash  marks.  Slash  marks  will  be  used  to  bracket 
items  which  must  be  typed  into  the  calculator  exactly  as 
written). 

/wrt  704,  ’*  QY"/  The  tape  should  move  and  the  FILE  HARK 

DETECTED  light  should  come  on.  (If  this  does  not  work,  power 
down  the  tape  unit  and  start  the  procedure  again.) 

10)  Insert  the  PROGRAM  TAPE  (with  RECORD  tab  in  the  RECORD  position) 
into  the  slot  to  the  left  of  the  display  screen.  The  writing  on 
the  label  of  the  cassette  should  be  readable  (not  upside-down). 

The  cassette  will  click  into  place  almost  flush  with  the  surface 
surrounding  the  slot. 

11)  Type  in  the  following  and  press  the  LXECUTE  key  after  each  one: 

/erase  a/ 

/ldk  0/  (that  is  a  zero,  not  an  "O") 


12)  Whenever  a  new  tape  is  being  used  for  the  first  time  on  the 
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9-track  Dyl on/Cipher  tape  recorder  the  following  must  be  entered 
along  with  the  commands  of  step  11: 

/l-> Y/  (That  is  a  one,  not  an  "L") 

Now  press  special  function  key  flO 

The  System  is  now  ready  for  a  program  load.  The  next  command 
should  be  /ldf  A/,  where  A  is  the  file  number  of  one  of  the 
programs  listed  in  Section  5.2. 

3.2  Performing  System  Tests 

In  a  normal  start-up  sequence  where  the  System  has  just  been 
installed  aboard  a  ship  and  is  being  configured  for  XBT  data  collection, 
the  following  sequence  of  activities  should  be  used: 

1)  /ldf  5/  This  loads  the  address  check  program  which  tests  each 
peripheral  for  proper  connection  to  the  BUS  and  for  proper 
address  setting. 

When  using  this  test  program  or  any  other  of  the  programs,  it  is 
a  general  rule  that  if  the  program  has  obviously  stopped,  as 
indicated  by  the  absence  of  a  RUN  light  in  the  upper  left-hand 
corner  of  the  display  screen,  the  operator  should  press  the 
CONTINUE  key  to  start  the  next  segment  of  the  program.  Now, 
press  RUN  to  start  the  program  that  checks  the  address  settings 
on  the  different  peripherals.  If  any  part  of  this  program  fails 
to  respond  properly,  consult  the  checklist  that  follows: 


GENERAL: 
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a.  Are  all  connections  in  the  right  places  and  solidly  connected 
and  anchored? 

b.  Is  the  HP-IB  interface  bus  fully  inserted  into  the  rear  of 
the  calculator? 

c.  Was  the  plotter  power  off  during  the  address  checks  on  the 
other  peripherals? 

DYLON: 

a.  Is  the  cable  connecting  the  rear  of  the  Magnetic  Tape 
Formatter  and  the  Tape  Drive  Unit  connected  properly? 

b.  Are  the  POWER  and  READY  lights  on  the  Formatter  lit? 

c.  Are  the  POWER,  ON  LINE,  and  WRT  EN  lights  on  the  Tape  Drive 
Unit  lit? 

A/D  CONVERTER: 

a.  Is  the  power  light  lit? 

PLOTTER: 

a.  Is  the  LINE  light  on  the  plotter  lit? 

b.  Is  the  CHART  LOAD  button  on  the  plotter  unlit? 

If  all  of  the  above  conditions  have  not  been  met,  then  one  or  more  of 
the  peripherals  probably  has  the  wrong  address.  Check  for  the 
following  addresses: 


HP-IB  Interface  Bus 
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Plotter - 7 

A/D  Converter . 6  (Set  internally) 

Dylon  Magnetic  Tape  Formatter - 4 

Dylon  Tape  Drive  Unit - 5 

2)  With  the  addresses  all  checked  and  properly  set  next  push  the 
ERASE  and  EXECUTE  keys  thereby  clearing  the  calculator, 

3)  Now  type  in  /ldf6/  and  press  EXECUTE  thereby  loading  the  Real-time 
clock  setting  program.  Press  RUN,  CONTINUE,  and  answer  the  question 
"Want  to  change  date  and  time?"  with  a  /y/.  Set  the  clock  to  the 
current  date  and  time  according  to  the  program  directions.  If  you  wish 
to  sync  the  clock  to  some  time  standard,  enter  the  time  including 
seconds  but  do  not  push  the  last  CONTINUE  until  the  instant  that  set 
time  occurs  on  the  standard.  After  you  enter  the  seconds  and  push 
CONTINUE,  the  calculator  will  pause  for  a  short  time  (10  to  25  seconds) 
and  will  then  display  the  time  just  entered  until  it  is  stopped  using 
the  STOP  key. 

4)  Make  sure  that  the  plotter  is  turned  off  for  the  next  series  of  tests. 

5)  Push  the  ERASE  and  EXECUTE  keys. 

6)  Type  in  /ldf7/  and  press  the  EXECUTE  key  thereby  loading  the  calibration 

program.  This  program  is  divided  into  two  parts.  The  first  part  permits 
a  calibration  check  of  the  analog  to  digital  converter  using  its  internal 
calibrator.  A  small-tipped,  flat-bladed  screwdriver  will  be  needed  and 
all  four  signal  plugs  from  the  Data  Station  must  be  removed  for  this 
test  prior  to  pressing  CONTINUE.  The  program  will  automatically  step 
through  each  channel  after  RUN  is  pushed  and  check  the  setting,  with 
about  30  seconds  permitted  for  adjustment.  With  the  calibrate  switch 

on  the  back  of  the  A/D  set  to  zero  each  channel  can  be  checked  and  set 
to  zero.  After  the  zero  check,  the  calibrate  switch  should  be  set  to 
-500  and  CONTINUE  pressed.  The  program  will  now  sequence  through  all 


channels  again  pausing  about  30  seconds  to  permit  adjustment  of  gain 

so  that  the  calculator  screen  displays  -500  for  each  channel  tested. 

After  the  A/D  calibration  section  of  the  program  is  finished,  the 

message,  "Test  Complete"  will  appear  on  the  screen;  just  press  the 
(Replace  signal  plugs  and  apply  power  to  the  Data  Station.) 
CONTINUE  key  to  use  the  second  half  of  this  system  testing  program. jy  The 

second  half  of  this  File  7  program  permits  a  total  system  calibration 
from  the  probe  output  (a  thermistor  resistance)  to  the  calculator  input 
by  using  known  resistance  values  as  inputs  and  then  setting  the  Bias  and 
Gain  adjustments  on  the  Data  Station  Channel  Cards  for  the  correct  cal¬ 
culator  display.  The  procedure  is  somewhat  involved  and  is  described  in 
step-by-step  detail  in  Section  4.2.4.  A  simple  but  very  accurate  check 
can  be  made  of  the  need  to  calibrate  any  specific  channel  by  using  the 
fixed  resistors  listed  in  Table  1.  With  power  applied  to  the  Data 
Station  operate  all  LOAD/LAUNCH  red  paddle  switches  as  specified  in  the 
Caution  and  Warning  statements  under  Step  3  of  Section  3.3  to  minimize 
calibration  errors.  Now  connect  one  of  the  resistors  selected  from 
Table  1  across  the  red  and  green  wires  of  the  Launch  Station.  No  other 
connection  should  be  made  to  the  Launch  Station  red  wire  except  one  end 
of  the  selected  resistor;  no  other  connection  should  be  made  to  the  green 
wire  except  for  the  other  end  of  the  selected  resistor.  A  clip  lead 
should  now  be  used  to  connect  the  Launch  Station  black  wire  to  the  green 
wire.  Once  these  connections  are  complete,  answer  the  program  questions 
concerning  channel  number,  display  type,  display  mode,  and  display  speed. 
NOTE:  As  to  display  type  be  sure  to  select  TEMPERATURE  and  not  counts. 
When  all  questions  have  been  answered,  the  calculator  should  display  the 
temperature  value  shown  in  Table  1  corresponding  to  the  calibration 
resistor  selected  +0.010°C.  If  a  temperature  reading  of  more  than 
10  millidegrees  error  is  found,  the  calibration  procedure  of  Section 
4.2.4  must  be  followed  for  each  channel  requiring  calibration. 


TABLE  1— Calibration  Resistors  and  Equivalent  Temperatures 


Resistor  Marking 

Resistor  Value 

^BStQXBEIS!!] 

Black  Back 

5K  ohms 

24.993°C 

II 

6.32K  ohms 

19.740°C 

II 

8.  IK  ohms 

14.340°C 

Red  Back 

5K  ohms 

24.998°C 

II 

6.32K  ohms 

19 . 735°C 

II 

8. IK  ohms 

14. 337°C 

Red  Top 

6.32K  ohms 

19.760°C 

The  System  Tests  have  now  been  completed  and  the  System  is  ready  to 
collect  data  using  one  of  the  data  collection  programs  provided. 

3.3  Collecting  Data  From  Probes 

Three  separate  programs  have  been  supplied  for  collecting  data  from 
the  XBT  Probes;  they  are:  The  main  program  (see  Section  5.9  for 
details);  the  main  program  without  the  use  of  the  9-track  tape  recorder 
(see  Section  5.10);  and  the  main  program  with  only  3  available  Launch 
Stations  or  channels  (see  Section  5.11). 

The  utilization  and  operator  interaction  with  each  of  these  three 
programs  is  quite  similar  and  will  normally  proceed  as  follows: 


1)  With  the  System  properly  installed  aboard  ship,  interconnected, 
and  tested,  the  operator  will  select  and  load  the  desired 
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operating  program  from  the  Program  Tape,  usually  File  8  (see 
Section  3.1  for  steps  in  loading  programs). 

2)  With  the  selected  operating  program  loaded  into  the  calculator's 
memory  and  the  run  mode  initiated,  the  program  will  initialize 
all  necessary  conditions  and  then  display  a  "PRESS  CONTINUE  TO 
INITIATE  TEST"  message  to  the  operator.  At  this  point  the  system 
is  fully  ready  to  collect  data  and  will  begin  such  collection  as 
soon  as  the  CONTINUE  key  on  the  calculator  keyboard  is  pressed. 

3)  It  is  now  necessary  to  set  up  the  Launch  Stations  for  the  loading 
and  then  launching  of  the  proper  probes.  Launch  Stations  1  and  2 
(channels  1  and  2)  are  reserved  for  T7  type  probes  while  Launch 
Stations  3  and  4  (Channels  3  and  4)  are  for  Til  probes.  At 
program  initiation  Launch  Station  1  is  automatically  selected  for 
the  first  T7  launch  and  Launch  Station  3  for  the  first  Til 
launch.  There  are  four  red  paddle  switches  on  the  front  of  the 
Data  Station  which  permit  the  System  operator  to  send  LOAD  and 
LAUNCH  commands  to  the  individual  Launch  Station  operators.  To 
send  a  LOAD  command  to  each  Launch  Station,  the  System  operator 
pushes  the  paddle  switch  handle  for  that  Station  to  the  LOAD 
side.  This  action  generates  a  slow  on-off  tone  at  the  Launch 
Station  signaling  the  operator  to  load  an  XBT  and  standby  for 
launch.  When  the  Launch  Station  operator  has  loaded  his  hand¬ 
held  launcher,  he  presses  the  reset  button  next  to  the  tone 
generator  on  his  Launch  Station  to  ngnal  the  System  operator 
that  a  probe  is  loaded  and  ready  for  launch.  The  pressing  of  the 
reset  butcon  turns  off  the  small  light  next  to  the  paddle 
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switch  which  was  actuated  thereby  giving  the  System  operator 
positive  indication  that  the  LOAD  message  was  received  and 
executed.  At  the  beginning  of  a  data  collection  period,  both 
Launch  Stations  of  the  type  probe  to  be  launched  (T7  or  Til) 
should  be  loaded  so  that  if  the  first  probe  falls  a  backup  probe 
can  be  quickly  launched.  If  T7  and  Til  probes  are  to  be  launched 
simultaneously  then  all  four  launchers  must  be  loaded. 

CAUTION:  To  insure  that  LOAD  and  LAUNCH  signals  sequence 
properly  it  will  be  necessary  to  initially  set  all  paddle 
switches  to  LOAD  and  have  each  Launch  Station  reset;  then  switch 
all  to  LAUNC'1  and  obtain  resets;  then  return  all  paddles  to  the 
center  off  position .This  initial  check  will  synchronize  the 
signals  and  provide  a  complete  check  of  their  operation. 

WARNING:  During  the  generation  of  LOAD  and  LAUNCH  signals, 

additional  noise  is  introduced  onto  the  data  signal  lines  thereby 

degrading  System  resolution.  LOAD  and  LAUNCH  signals  should  be 

generated  when  data  is  not  being  collected  to  the  maximum  extent 

possible  and  once  confirmation  of  the  command  has  been  received 

by  the  system  operator,  the  paddle  switch  should  be  returned  to 

the  center  off  position.  If  a  T7  and  Til  launch  is  to  be 
performed,  be  sure  to  read  “NOTE:"  on  the  following 
page. 

4)  With  the  appropriate  Launch  Stations  loaded  and  ready  for  launch, 
the  System  operator  need  only  decide  when  to  launch  the  desired 
probe(s).  The  CONTINUE  key  on  the  calculator  shoul 

causing  the  calculator  to  begin  "looking"  for  valid  data. 

5)  Next  the  LAUNCH  command  should  be  sent  to  the  appropriate  Launch 


Station.  As  soon  as  acknowledgement  is  received  the  paddle 
switch  should  be  returned  to  the  center  off  position. 
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6)  At  approximately  the  same  time  that  launch  is  acknowledged,  the 
calculator  should  print  the  start  time  of  the  probe  data 
collection  sequence.  No  printed  start  time  means  that  valid  data 
was  jiot  achieved  after  the  commanded  launch  signifying  that 
either  the  probe  was  not  launched  as  commanded  or  the  probe 
failed  prior  to  generating  any  valid  data.  In  this  case  we 
assume  a  failed  probe  and  press  the  calculator  STOP  key  followed 

by  the  Special  Function  Key  f4  if  a  T7  only  probe  was  launched  or  f 12 
STOP  f5  if  both  a  T7  and  Til  probe  were  launched. 

NOTF.:  If  a  T7  and  Til  probe  were  to  be  launched.  Special 
Function  Key  f3  had  to  be  pressed  Immediately  before  the  CONTINUE 
key  at  the  beginning  of  the  data  collection  sequence  (just  before 
the  commanded  launches).  When  in  the  dual  probe  mode  (f3)  two 
probe  start  times  must  be  printed  to  verify  that  both  launches 
are  good.  If  none  or  only  one  start  time  is  printed,  press  f 12 
STOP  then  f5. 

7)  Pressing  the  appropriate  special  function  keys  just  discussed 
(see  Section  5.1  for  detailed  explanation  of  Special  Function 
Keys)  in  general  returns  the  program  to  the  beginning,  tells  the 
operator  which  channel  (Launch  Station)  to  command  for  launch  of 
the  backup  probe(s) ,  and  either  waits  for  the  CONTINUE  key  to  be 
pressed  or  continues  taking  data  (if  there  is  a  probe  still  in 
the  water). 
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8)  During  the  probe  drop  the  calculator  will  automatically  collect  data, 
test  each  point  for  validity,  and  store  the  data  in  memory  and  on 
the  9-track  tape  recorder.  The  run  light  will  be  illuminated  on  the 
calculator  screen  indicating  that  the  program  is  in  operation  and  the 
9- track  tape  recorder  will  occasionally  advance  the  tape  a  small 
amount  indicating  the  recording  of  a  data  block. 

9)  The  program  will  collect  data  for  the  time  specified  for  each  type 
probe  (120  seconds  for  T7  and  269  seconds  for  Til).  At  the  end  of  a 
data  collection  period  (one  complete  probe  drop),  the  data  stored  in 
calculator  memory  will  be  recorded  on  the  calculator  cassette. 

10)  When  all  data  has  been  stored,  the  program  alerts  the  System  operator 
that  it  is  standing  by  for  the  next  probe  launch  and  advises  the 
operator  to  push  the  CONTINUE  key  when  ready  to  proceed. 

11)  If  no  more  probes  are  to  be  launched  at  this  time,  but  the  presently 
mounted  9- track  digital  tape  will  be  used  to  store  more  data  at  a 

later  time,  press  Special  Function  Key  flO  (see  Section  5.1  for  details). 

3.3.1  Data  Collection  Differences  Between  Programs 

The  Main  program  (Program  File  8)  consists  of  two  parts  as  mentioned 
previously;  the  T7  probe-only  launch  and  the  combination  T7/T11  launch. 

For  the  T7-only  launches  data  is  collected  for  120  seconds  at  20  samples 
per  second  and  each  point  is  stored  in  memory  and  sent  to  the  9- track 
tape  recorder.  At  the  end  of  the  120  seconds,  the  2400  data  points  in 
memory  are  read  onto  the  cassette  tape  requiring  about  4  or  5  seconds  for 
this  recording.  The  program  then  cycles  back  to  the  start  of  the  T7  only 
mode  and  waits. 


For  the  T7/T11  dual  launches,  the  T7  and  Til  probes  should  be 
launched  at  the  same  time  (within  a  couple  of  seconds).  The  program  (Fil 
8,  key  f3)  will  collect  data  on  each  probe  at  20  samples  per  second  (40 
samples  per  second  total).  Each  T7  data  point  will  be  stored  in 
calculator  memory  and  sent  to  the  9-track  tape  recorder  just  like  the  T7 
only  mode.  Each  Til  data  point  is  stored  only  in  calculator  memory  at 
this  stage.  The  Til  fall  time  is  269  seconds  or  about  2  1/4  times  a  T7 
fall  time.  At  the  end  of  the  first  T7  all  the  T7  data  in  memory  is 
stored  on  the  calculator  cassette  tape  which  requires  approximately  4-5 
seconds.  During  this  storage  period  no  data  can  be  taken  on  the  Til 
probe  and  so  there  will  be  a  gap  or  missing  data  piece.  This  delay  time 
in  collection  of  Til  data  is  remembered  by  the  System  and  used  later  to 
calculate  accurate  Til  data  point  times.  After  the  first  T7  probe's  data 
is  recorded  on  cassette,  the  System  resumes  taking  data  on  the  still 
falling  Til  probe  and  alerts  the  system  operator  that  a  second  (or  next) 

T7  probe  may  be  launched.  If  a  T7  probe  is  launched  prior  to  completion 
of  the  remaining  Til  drop,  data  will  again  be  collected  on  the  T7  and  Til 
at  20  samples  per  second  each  with  each  T7  data  point  being  recorded  on 
9-track  tape  as  well  as  stored  in  memory.  If  the  T7  drop  is  completed 
prior  to  the  remaining  Til,  cassette  recording  of  the  T7  will  again  occur 
with  a  corresponding  gap  in  the  Til  data.  If,  however,  the  Til  finishes 
prior  to  completion  of  the  present  falling  T7,  the  program  will  continue 
collecting  T7  data  until  it  is  complete.  Both  T7  and  Til  data  will  be 
recorded  on  cassette  tape  and  the  Til  data  will  also  be  recorded  on  the 
9-track  digital  tape  recorder.  With  all  probes  complete,  the  program 
will  return  to  the  T7  only  mode  of  operation  and  so  alert  the  System 
operator. 


The  NO  DYLON  program  (Program  File  9)  operates  in  the  same  manner 


22 


as  the  main  program  (File  8)  except  that  data  is  not  written  to  the 
9-track  tape  recorder.  This  program  option  has  been  provided  to  allow 
system  operation  in  the  event  of  a  9-track  tape  recorder  failure.  The 
connecting  cables  between  the  9-track  tape  unit  and  the  HPIB  should  be 
removed  for  this  mode  of  operation  (File  9). 

The  THREE  (3)  CHANNELS  ONLY  program  (Program  file  10)  operates  in 
the  same  manner  as  the  main  program  (File  8)  except  that  no  alternate 
launch  channel  (channel  4)  is  available  for  launch  of  a  second  TU  probe 
should  the  first  probe  prove  to  be  a  failure.  It  must  be  carefully  noted 
that  the  three  active  stations  must  be  channels  1,2,  and  3  even  if  this 
requires  shifting  connections  on  the  Data  Station  or  swapping  plug  in 
boards  (see  Section  4.1  for  details).  The  reason  for  this  is  that  the 
THREE  (3)  CHANNELS  ONLY  program  expects  the  first  three  channels  to  be 
operative.  This  program  was  provided  in  case  one  channel  was  lost  and 
sufficient  spares  did  not  exist  to  make  repairs.  Since  spare  cards  are 
being  provided  for  the  Launch  Stations  and  Data  Stations,  it  is  extremely 
unlikely  that  this  specific  program  will  be  needed, 

3.3.2  Marking  Data  Tapes 

Before  any  specific  data  collection  program  is  selected  and  loaded 
into  the  calculator,  it  will  be  necessary  to  mark  files  on  the  cassette 
tapes  that  will  be  used  to  record  the  collected  raw  data  and  the 
converted  data  that  will  follow  later  (see  Section  3.4). 

Each  data  tape  has  two  tracks  and  each  track  has  room  for  twenty 
(20)  files  of  T7  data  and  four  (4)  files  of  Til  data.  To  mark  a  tape, 
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insert  a  blank  cassette  into  the  9825  calculator  and  type  in  the 
following  commands  (note:  follow  each  line  with  an  EXECUTE  command): 

/trkl;ertO/ 

/trkOjertO/ 

/trkl;fdfO/ 

/mrk  20,4900/ 

/fdf20/ 

/mrk  4,  10900/ 

/trkOjfdfO/ 

/mrk  20,4900/ 

/fdf20/ 

/mrk  4,10900/ 

/rew/ 

It  is  recommended  that  as  many  tapes  be  marked  as  will  be  needed 
for  a  single  test  leg  instead  of  marking  all  the  tapes  needed  for  the 
whole  test  since  marked  tapes  are  not  readily  identifiable  as  new  and 
unused. 

3.4  Converting  Data  To  Engineering  Units 

Because  of  the  rate  at  which  data  are  being  collected  during  a 
probe  (T7)  or  probes  (T7/T11)  drop,  insufficient  time  is  available  for 
conversion  to  engineering  units.  Actually  two  conversions  need  to  be  rnrde 
The  first  takes  the  binary  count  output  of  the  A/D  converter  and  converts 
it  to  a  voltage  in  accordance  with  the  System  calibrations.  The  second 
conversion  changes  the  voltage  into  a  corresponding  temperature  value  in 
accordance  with  a  non-linear  conversion  equation  supplied  by  the  Sippican 
Corporation  for  their  XBT  bridge  circuit  output.  To  perform  these 


conversions,  files  11  and  12  (see  Sections  5.12  and  5.13)  have  been 
provided  on  the  program  tape.  The  conversion  of  stored  raw  data  (A/D 
binary  counts)  to  converted  data  (temperature  in  °C)  must  occur  off-line 
and  can  be  performed  at  the  end  of  a  set  of  data  drops  or  at  the 
completion  of  all  data  drops.  The  conversion  programs  are  divided  into 
two  types;  conversion  of  T7  only  data  and  conversion  of  Til  only  data. 

To  convert  T7  data  it  is  only  necessary  to  load  file  11  from  the 
Program  Tape  and  follow  the  calculator  prompted  instructions.  The 
program  has  been  designed  to  prompt  the  operator  at  each  decision  point 
(see  Section  5.12  for  a  detailed  explanation  of  the  program).  When  the 
cassette  data  tapes  where  initially  recorded,  raw  data  was  stored  on 
every  other  file.  The  converted  T7  data  will  be  stored  in  the  blank  file 
immediately  following  the  corresponding  raw  data  file. 

To  convert  Til  data,  load  file  12  from  the  Program  Tape  and  again 
follow  the  calculator  prompts  (see  Section  5.13  for  program  details).  As 
was  the  case  for  T7  data,  the  converted  Til  data  is  stored  on  tape  In  the 
file  which  immediately  follows  the  corresponding  raw  data  file. 

3.5  Plotting  Data  For  Quality  Assurance 

Two  programs  have  been  provided  for  the  plotting  and  inspection  of 
collected  XBT  data;  they  are  located  in  files  13  and  14  of  the  Program 
Tape. 

3.5.1  Temperature  Profile  Plotting 

File  13  of  the  Program  Tape  (see  Section  5.14  for  program  details) 
enables  plotting  of  temperature  versus  calculated  depth  profiles  for  up 
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to  five  (5)  probes  on  a  single  X-Y  plot.  The  program  prompts  the 
operator  with  a  series  of  questions  asking  for  the  desired  start  time  at 
which  the  first  probe  was  taken  and  the  type,  T7  or  Til,  data  to  be 
plotted.  The  program  permits  plotting  of  T7  and  Til  data  mixed  by  asking 
the  operator  for  the  start  time  of  the  first  of  each  of  the  two  probe 
types.  The  operator  is  also  asked  for  the  order  in  which  he  desires  to 
have  the  probe  data  plotted.  While  it  is  necessary  to  plot  a  given  probe 
type  data  in  chronological  order,  each  of  the  probe  types  being  plotted 
(T7  or  Til)  do  not  have  to  be  in  chronological  order.  Each  plot  is 
cff-set  by  an  amount  specified  by  the  operator  as  one  of  the  answered 
questions.  Each  plot  has  scale  markings  at  the  end  points  and  a 
calibrated  temperature  scale  is  drawn  at  the  edge  of  the  plot  to 
facilitate  scaling  of  temperature  values  for  each  plot  as  a  function  of 
calculated  depth.  The  depth  of  each  plotted  temperature  is  calculated 
from  the  Sippican  Corp.  fall  rate  equations  specified  for  each  probe 
type,  a  knowledge  of  the  start  time  of  each  probe  drop  and  a  very 
accurate  sample  rate  during  each  drop. 

3.5.2  Deviation  Plotting 

File  14  of  the  Program  Tape  (see  Section  5.15  for  program  details) 
enables  the  plotting  of  any  single  temperature  profile  and  the  deviation 
between  any  given  data  point  and  the  mean  of  a  group  of  data  points  which 
contain  the  given  point  at  the  center.  This  calcination  and  plotting 
routine  allows  inspection  of  the  degree  of  variability  (higher  frequency 
fluctuation)  in  the  data  over  the  entire  profile.  Once  the  program  has 
been  loaded  and  the  run  mode  initiated,  the  program  asks  the  operator  a 
number  of  questions  the  answers  to  which  decide  the  probe  type,  start 


time,  and  deviation  amplitude  sensitivity. 
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4.0  What  If  Things  Go  Wrong? 

The  X8T  Data  Acquisition  System  has  been  designed  with  considerable 
redundancy  in  mind.  Sufficient  spare  circuit  cards  and  functional 
subunits  have  been  provided  to  permit  10055  backup  for  all  functions  as 
described  in  the  following  sections. 

4.1  Hardware  Considerations 

4.1.1  Launch  Station  Repairs 

Launch  Stations  are  identical  and  any  unit  can  be  substituted  for 
any  other  Launch  Station  unit.  If  Launch  Stations  are  interchanged,  the 
launch  station  designations,  #1,  #2,  etc.,  also  change;  i.e.,  If  stations 
#1  and  #4  are  swapped  (because  #1  failed)  then  the  original  station  #4 
becomes  station  #1  and  must  be  treated  accordingly.  Anticipated  use 
should  see  two  stations  in  use  at  any  one  time,  therefore,  a  10055  backup 
exists. 

Each  Launch  Station  is  connected  to  a  separate  printed  circuit  card 
in  the  Data  Station  Unit,  These  printed  circuit  cards  are  also  identical 
and  can  be  interchanged  if  one  should  fail.  It  will  usually  be  easier, 
however,  to  interchange  analog  signal  connectors  at  the  A/D  converter. 

If  such  an  interchange  is  made,  it  should  be  noted  in  a  log  to  prevent 
later  confusion  as  to  the  true  interconnection  arrangement. 

4.1.2  Data  Station  Repairs 


There  are  two  +  15VDC  power  supplies  in  the  Data  Station  Unit;  one 
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supplying  all  Data  Station  electronics,  the  other  supplying  all  Launch 
Station  electronics.  If  either  supply  should  fail,  it  must  be  replaced 
before  continuing  operations;  or  the  bad  supply  can  be  disconnected  and 
the  remaining  good  supply  connected  to  carry  the  full  load  of  all  four 
channels. 

CAUTION:  When  swapping  or  doubling  connections  on  any  power  supply 
pay  very  close  attention  to  polarity  and  color  codes. 

4.1.3  Calculator  and  Peripherals  Repair 

The  HP9825  calculator,  HP59313  analog  to  digital  converter,  HPIB 
interface,  cable,  and  realtime  clock  are  all  backed  up  by  substitute  units 
which  can  be  directly  inserted  or  interconnected  in  place  of  the 
malfunctioning  unit.  Since  each  calculator  contains  a  cassette  tape 
recording  unit,  100%  redundancy  is  provided  for  recording  data.  Printed 
circuit  boards  are  also  easily  exchangeable  between  calculators  should 
one  calculator  fail  but  its  cassette  recorder  remain  good  while  the  other 
calculator  suffers  a  tape  unit  failure.  Simply  follow  the  HP  calculator 
manual  for  directions  in  changing  out  printed  circuit  cards. 

An  additional  tape  recorder  (9  track,  incremental,  digital)  and 
HPIB  interface  have  Deeu  provided  so  that  XBT  data  can  be  stored  in 
computer  compatible  format  for  later  merging  with  other  test  data  on  a 
large  capacity  computer.  If  this  unit  should  fail,  data  will  still  be 
stored  on  the  calculator  cassette(s).  This  cassette  data  can  later  be 
transcribed  onto  9  track  tape  if  the  9  track  unit  fails  in  the  field. 

An  X-Y  plotter  is  also  provided  for  plotting  of  data  as  an  aid  in 
assessing  its  quality  and  completeness.  Should  the  X-Y  plotter  fail. 


data  can  be  listed  on  the  calculator  printer  on  a  probe  by  probe  basis 
using  the  special  off-line  programs  provided.  While  printer  listing  of 
the  data  does  not  provide  the  nice  graphical  presentation  of  the  X-Y 
plotter,  it  does  provide  an  assessment  of  data  completeness  and  a  means 
for  hand  plotting  of  the  data  if  desired. 

4.2  Software  Considerations 

A  fairly  large  number  of  documented  programs  (see  Section  5,0)  have 
been  written  to  aid  in  the  diagnosis  of  system  trouble  or  to  operate 
"around"  such  troubles  as  illustrated  by  the  following  considerations. 

4.2.1  Special  Function  Keys 

During  program  operation,  a  number  of  possibilities  exist  for  the 
occurrence  of  recoverable  errors.  These  errors  are  detected  by  the 
KP9825  calculator  and  would  normally  be  displayed  as  an  error  message 
except  ti.at  additional  programming  has  been  supplied  which  prompts  the 
System  operator  to  press  a  specified  Special  Function  Key  thereby 
eliminating  the  error.  The  Special  Function  Keys  which  are  computer 
prompted  are  f0,  fl,  f 2 ,  f6,  f 7 ,  f8,  f 9 ,  flO,  f 11 ,  f 13 ,  and  f 14 ;  the 
function  of  each  is  defined  in  Section  5.1. 

Additional  Special  Function  Keys  have  been  provided  to  permit 
operator  recovery  from  errors  that  are  undetected  by  the  System  or  to 
change  modes  of  data  collection.  The  f3  Key  allows  the  operator  to  shift 
from  the  main  program  which  permits  collection  of  T7  data  only  to  a 
subsection  of  the  main  program  which  permits  collection  of  T7  and  Til 
data  simultaneously. 


A  detailed  discussion  of  the  main  data  collection  program  is 
contained  in  Section  5.9. 

The  f4  Key  (see  Section  5.1)  permits  a  system  restart  in  the  event 
that  a  launched  XBT  T7  probe  fails  prior  to  the  generation  of  any  good 
data.  The  main  operating  program  "looks"  at  the  probe  data  whenever  the 
program  is  in  run  mode.  Prior  to  the  probe  launch,  the  data  values  are 
out  of  range  and  declared  invalid  by  the  program.  Once  launch  has  been 
commanded,  the  probe  values  should  come  in  range  immediately  upon  water 
entry.  If  this  does  not  happen,  no  launch  time  will  be  printed  and  the 
operator  will  know  that  the  computer  is  still  waiting  for  launch.  Since 
launch  has  occurred,  the  probe  must  have  failed  and  a  substitute  probe 
should  be  launched.  Depressing  "STOP"  and  then  the  f4  Key  resets  the 
system  and  provides  automatic  prompts  to  the  operator  concerning  launch 
of  the  substitute  T7  probe. 

The  fl2  STOP  f5  Key  sequence  provides  the  same  recovery  capability 
as  the  f4  Key  except  that  it  is  used  for  the  combination  T7/T11  mode  of 
operation.  If  two  print  times  (one  for  each  launched  probe)  are  not  seen 
by  the  operator  shortly  after  the  commanded  dual-launch,  then  fl2ST0P  is 
presses  followed  by  the  f5  Key  resulting  in  System  prompts  which  tell  the 
operator  which  probe  failed  and  which  channel  to  command  for  launch  of 
the  backup  probe. 

The  f 15  Key  provides  for  the  same  mode  selection  capability  as  the 
f3  Key  (T7  only  mode  or  T7/T11  dual  mode)  for  that  situation  in  which 
the  Dylor.  9-track  tape  recorder  is  not  available  (see  Section  5.10). 
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NOTE:  The  execution  (depressing)  of  any  Special  Function  Key 
normally  occurs  when  the  calculator  is  not  in  run  mode;  i.e.  the 
run  light  is  off.  If  the  run  light  is  on,  the  STOP  key  normally 
must  be  pressed  first,  followed  by  the  Special  Function  Key  desired 
(an  exception  to  this  general  rule  is  key  f 12, ) . 

4.2.2  Address  Checks  For  Peripherals 

This  program  (see  Section  5.6  for  details)  permits  checking  of 
each  of  the  peripherals  connect  to  the  HPIB  to  insure  proper  electrical 
connections  and  Interchange  of  TALK/LISTEN  commands.  The  program  carries 
the  operator  step  by  step  with  prompts  and  upon  completion  has  insured 
that  all  peripherals  are  connected,  properly  addressed,  and  functioning 
with  the  Bus.  It  is  helpful  to  utilize  this  test  once  the  System 
interconnections  specified  in  Section  2.1  have  been  made. 

4.2.3  Real  Time  Clock  Check 

A  program  has  been  provided  for  reading  or  setting  the  Real 
Time  Clock  plugged  into  the  rear  of  the  HP9825  Calculator  (see  Section 
5.7  for  details).  The  clock  can  be  read  or  set  by  loading  this  program 
(File  6)  and  fo’lowing  the  prompts.  Comparison  to  an  independent  time 
source  will  indicate  the  functioning  status  of  the  Clock  (on  time  or 
error) . 


4.2.4  System  Calibration  Check 

This  program  provides  for  System  calibration  prior  to 
collection  of  a  data  set  or  a  System  calibration  check  at  any  time  System 
malfunction  or  error  is  suspected  (see  Section  5.8  for  details).  The 


nwwppwFw 

v  vwvH^Kfr  »«»« 


31 

calibration  program  consists  of  two  parts:  part  one  permits  alignment  of 
the  A/D  Converter  using  its  internal  calibrator;  part  two  permits  alignment 
of  the  Data  Station  and  Launch  Stations  using  known  resistances  to  simulate 
specific  temperature  values.  To  calibrate  the  A/D  simply  load  the  program 
(File  7)  and  answer  each  of  the  computer  prompts.  The  specific  procedure  is 
described  in  Step  6  of  Section  3.2  and  should  be  referred  to  if  the  A/D 
requires  calibration. 

To  calibrate  the  Data  Station  and  Launch  Stations,  it  will  first  be 
necessary  to  calibrate  the  A/D  Converter.  With  the  A/D  calibrated,  the 
calibration  program  next  permits  reading  of  temperature  (resistance)  values 
from  a  selected  Launch  Station  (channel  number).  Assume  that  we  wish  to 
calibrate  channel  one  (Launch  Station  1)  from  the  XBT  probe  input  to  the 
A/D  output  (calculator  input). 

NOTE:  Calibration  of  any  other  channel  is  identical 
to  the  procedure  for  channel  one. 

1)  Utilizing  one  of  the  precision  resistance  substitution  boxes  selected 
from  Table  2,  set  the  resistance  value  for  6247  ohms  and  connect  the 
resistance  box  to  the  Launch  Station  terminal  strip  as  shown  in 
figure  3.  The  resistance  setting  of  6247  ohms  corresponds  to  a  probe 
temperature  of  exactly  20.00°C  and  is  the  mid-scale  point  for  the 
calibrated  measurement  range. 

TABLE  2--Resistance  Substitution  Box  Resistance  Settings 

Box  236  A-l 

Required  Launch  Station  Value  Box  One  Setting 

9968 
6247 


10.00°C  -  9948  ohms 
20.00°C  -  6247  ohms 
30.00°C  -  4024  ohms 
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FIGURE  4-  RESISTANCE  BOX 
CONNECTION  DIAGRAM 


2)  Connect  6.32K  ohm  calibration  resistors  (sae  Table  1  Section  3.2) 
across  the  red  and  green  wires  of  each  of  the  other  Launch  Stations; 
do  not  make  any  connections  to  the  black  wire  and  be  sure  that  all 
handheld  launcher  wires  have  been  removed.  These  6.32K  ohm  resistors 


place  a  finite  resistance  across  the  input  differential  amplifier  in 
the  Launch  Station  bridge  circuit  and  act  to  balance  all  Stations  with 
respect  to  each  other  to  minimize  offset  errors. 


3)  Carefully  remove  the  white  cover  of  the  Data  Station  by  removing  the 
four  black  rubber  feet  (a  medium  straight  blade  screwdriver  will  be 
required).  Locate  the  channel  BIAS  and  GAIN  controls  by  comparing  the 
inside  of  the  Data  Station  to  Figures  4  and  5.  Access  ports  have  been 
provided  for  these  adjustments  on  the  rear  panel  of  the  Data  Station  lid. 
With  the  cover  reinstalled,  apply  power  by  pressing  the  power  switch. 
Actuate  the  LOAD/LAUNCH  red  paddle  switches  as  specified  in  the  Caution 
and  Warning  statements  under  Step  3  of  Section  3.3  to  minimize 
induced  noise. 


4)  Now  load  the  Special  Function  Keys  and  File  7  into  the  calculator 
(if  this  has  not  already  been  accomplished  as  a  result  of  following 
Sections  3.1  and  3.2).  It  is  assumed  that  the  A/D  has  just  been 
calibrated;  if  not,  use  Step  6  of  Section  3.2  to  accomplish  this. 
With  the  Special  Function  Keys  and  File  7  loaded,  press  key  f6  and 
then  f7;  this  jumps  the  calibration  program  to  the  beginning  of  a 
series  of  questions  which  will  ask  for  a  channel  selection  (select 
one  to  be  calibrated);  display  type  (select  TEMPERATURE);  display 
mode  (select  display);  and  display  speed  (select  3). 
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5)  If  everything  has  been  accomplished  correctly  up  to  this  point,  the 
calculator  display  will  show  approximately  20°C.  Now  adjust  the 
BIAS  potentiometer  shown  in  Figure  4  (using  a  very  small  straight 
blade  screwdriver)  for  the  channel  to  be  calibrated  (one  in  this 
case)  until  the  calculator  display  indicates  as  close  to  20.00°C  as 
possible.  This  step  sets  the  midpoint  of  the  calibrated  10°C  to 
30°C  measurement  scale. 

6)  Now  change  the  setting  on  the  resistance  substitution  box  to  4024  ohms. 
The  calculator  should  indicate  very  nearly  30°C.  Adjust  the  GAIN 
potentiometer  shown  in  Figure  5  for  the  selected  channel  until  the 
calculator  display  indicates  as  close  to  30.00°C  as  possible.  This 
step  sets  the  highpoint  of  the  calibrated  10°C  to  30°C  range. 

7)  Now  alternate  between  steps  5  and  6  until  you  have  achieved  the 
best  settings  possible.  Next  set  the  resistance  box  for  9948  ohms; 
the  calculator  should  indicate  exactly  10.00°C  ±0.01°C.  If  close 
but  not  within  specs,  adjust  BIAS  and  GAIN  slightly  rechecking  the 
10°C,  20°C,  and  30°C  points  until  each  point  is  within  +0.01°C.  If 
this  accuracy  is  not  achievable,  refer  to  Section  4.1  for  trouble¬ 
shooting  help. 

8)  Once  the  10°C,  20°C,  and  30°C  points  have  been  set  using  Steps  5,  6, 
and  7  so  that  each  falls  within  +0.01°C  of  the  nominal  value  when 
the  corresponding  resistance  shown  in  Table  2  is  switched  in,  the 
channel  is  completely  calibrated  and  the  resistance  substitution 

box  can  be  moved  to  the  next  channel.  Note:  a  6.32K  ohm  calibration 
resistor  (for  Station  balance  purposes)  must  be  connected  across  the 
red  and  green  wires  of  each  Launch  Station  not  connected  to  the 
substitution  box. 


9)  When  the  last  channel  has  been  calibrated  using  the  resistance 
substitution  box,  a  final  confidence  test  can  be  performed  if 
desired.  This  confidence  test  can  also  be  performed  at  any 
time  the  calibration  accuracy  of  any  channel  is  questioned. 
Remove  the  substitution  box  and  connect  a  resistor  selected 
from  Table  1  Section  3.2  across  the  red  and  green  wires  of  the 
Launch  Station.  At  this  time,  all  Launch  Stations  should  have 
calibration  resistors,  from  Table  1,  connected  across  the  red 
and  green  wires  (all  handheld  launcher  connections  removed). 

If  a  jumper  (clip  lead)  is  now  connected  between  the  black  and 
green  wire  of  each  Launch  Station,  a  signal  will  be  generated 
which  corresponds  to  the  temperature  listed  in  Table  1  for 
each  calibration  resistor  used.  If  the  channel  being  confidence 
tested  is  properly  calibrated,  the  calculator  will  display 
the  corresponding  temperature  +0.01°C  when  using  the  second 
part  of  the  calibration  program  (File  7). 


CAUTION;  In  order  to  maintain  the  system  calibration  accuracy 
in  operation,  a  resistance  between  3K  ohms  and  16K  ohms  must 
be  connected  across  the  red  and  green  wires  of  each  Launch 
Station  at  all  times  that  data  are  being  collected.  Use  of  the 
6.32K  ohm  calibration  resistors  will  satisfy  this  requirement 
for  each  Launch  Station  not  being  used  to  launch  XBT  probes. 

For  Stations  used  to  launch  XBT  probes  insure  that  a  probe 
is  loaded  at  all  times  that  data  is  being  collected  from  any 


The  XBT  Data  Acquisition  System  has  a  measurement  resolution  of 
10  mi  Hi  degrees.  In  order  to  maintain  a  system  accuracy  commensurate 
with  the  resolution,  extreme  care  must  be  exercised  in  the  calibration 
of  each  channel.  If  the  calibration  is  ever  doubted,  the  particular 
channel  or  channels  should  be  checked  using  the  above  confidence  test 
procedures.  Check  and  recheck  until  it  is  optimum;  don't  attempt  shortcuts! 
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FILE  0 

SPECIAL  FUNCTION  KEYS 


There  are  24  special  function  keys  on  the  9825A  Programmable  Cal¬ 
culator.  These  keys  are  in  the  upper  right-hand  corner  of  the 
keyboard  and  are  numbered  from  iff  to  fll  (that  takes  care  of  12 
keys;  the  other  12  are  the  shifted  versions  of  f0  through  fll. 
Thus,  shifted  f5  is  really  fl7).  The  special  function  keys  which 
are  defined  and  explained  below  are  used  in  various  different 
programs  within  the  XBT  Data  Acquisition  System.  These  programs 
and  various  lines  contained  within  them  will  be  referenced  in  the 
explanations  of  the  keys.  *NOTE:  Before  each  of  the  special 
function  keys  is  the  character  This  asterisk  before  each  of 

the  commands  indicates  to  the  calculator  that  it  is  not  merely  to 
display  that  command  and  await  an  EXECUTE  from  the  operator.  It 
tells  the  calculator  to  execute  that  command  immediately. 

f0i  *erase  v  - Since  an  error  39,  S6,  S7,  or  S J  must  have 

occurred  to  warrant  the  use  of  ffS,  this  key  is  used  to  remedy 
problems  caused  in  the  program  when  one  of  these  errors  has  oc¬ 
curred.  All  of  those  errors  have  in  common  an  indication  of 
errors  in  dimensioning  variables.  The  erase  v  command  erases 
all  variables  in  the  calculator  in  preparation  for  use  of  either 
the  fl  or  f2  keys. 

f 1 s  *cont  5  - After  the  erase  v  command  has  been  executed 

using  the  £0  key,  this  key  restarts  the  program  at  line  5,  which 
will  redimension  the  T7  probe  variables  since  the  error  subrou¬ 
tine  has  shown  that  the  error  occurred  during  a  T7  probe  drop. 
This  command  is  used  for  both  the  Main  and  3-Channel-Only  data 
acquisition  programs  (files  8  and  1J8) . 

f 2 ;  *cont  39  - This  key  performs  the  same  function  that  fl 

performed,  except  that  it  restarts  the  program  and  redimensions 
variables  for  the  second  half  of  the  program  in  the  T7/T11  mode. 

f 3 •  *cont  40 - This  key  is  used  to  go  from  the  T7-0nly  mode 

of  either  the  Main  or  3-Channel-Only  data  acquisition  programs 
to  the  T7/T11  mode  of  those  same  programs. 

f4:  *cont  "defect"  - The  calculator  has  no  way  of  knowing 

that  a  probe  is  defective  unless  at  least  one  valid  data  point 
has  been  taken.  If  the  operator  does  not  see  the  probe  start 
time  printed  within  2  seconds  of  the  launch  of  a  T7  probe,  he 
knows  that  the  calculator  has  not  taken  and  probably  will  not 
ever  take  any  valid  data.  He  therefore  pushes  STOP  and  f4,  in 
effect  telling  the  program  that  the  probe  is  defective.  f4  then 
sends  the  program  down  to  the  defective  probe  subroutine  "defect" 
to  take  appropriate  action.  This  key  is  also  used  for  the  Main 
and  3-Channel-Only  and  the  No-Dylon  data  acquisition  programs. 
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f 5 :  *cont  "defectb" - This  key  perforins  the  same  function  as 

f4  for  the  same  programs,  except  that  it  is  for  the  second  half 
of  the  program;  the  T7/T11  mode.  It  must,  however,  be  preceded 
by  both  fl2  and  a  STOP.  See  fl2  documentation  for  details. 

f 6  s  *cont  65 - This  key  is  used  in  the  System  Calibration 

program  to  skip  the  A/D  Converter  Calibration  section  of  that 
program  (file  7) .  It  is  explained  at  the  start  of  the  program. 

f 7 :  *cont  72  - This  key  is  also  used  with  file  7.  It  is  used 

to  change  channels,  output  speed,  or  devices  for  the  values  being 
output  from  the  A/D  Converter.  It  is  explained  in  the  program. 

f 8 :  *cont  43  - f8  is  used  in  the  T7  Engineering  Conversions 

program  (file  11) .  It  continues  the  program  at  line  43  if  the 
operator  is  through  with  all  T7  data  conversions  and  is  explained 
in  the  program  as  to  when  it  is  to  be  used. 

f9:  *cont  23  - This  key  is  used  in  the  Til  Engineering  Conver¬ 

sions  program  (file  12^ .  It  continues  the  program  at  line  23  if 
the  operator  has  finished  with  all  Til  data  conversions.  It  is 
also  used  only  when  instructions  to  do  so  are  given  to  the  opera¬ 
tor  within  the  program. 

f 10 *  *trkl;rcf  2,Y;trk0;rcf  2,Y  - This  key  is  used  in  both  the 

Main  and'  3-channel-0niy  data  acquisition  programs  (files  8  and  10) 
After  an  error  in  dimensioning  has  occurred,  the  user  is  told 
to  press  f 10 ,  f0,  and  several  other  keys.  fl0  must  be  used  be¬ 
fore  f0  because  fl0  records  the  value  of  the  Dylon  tape  file  coun¬ 
ter  onto  the  program  tape  so  that  it  will  not  be  lost  when  f 0  is 
pressed  and  all  variables  are  erased. 

fll:  *trk0; ldf  2, Y  - This  key  is  used  to  retrieve  the  value 

of  the  number  of  files  written  onto  the  Dylon  tape  so  far.  It  is 
used  with  files  8  and  10  and  is  explained  as  to  its  usage  in  the 
programs . 

f  12 :  *wrt  9 , ,IU2C,U2G11 - This  /.wy  must  be  pressed  before  the 

STOP  and  f5  keys  are  pressed.  It  is  the  ONLY  key  in  this  listing 
which  may  be  pressed  while  the  program  is  running.  It  starts  a 
timer  which  will  be  read  later  to  ascertain  the  data  gap  created 
in  one  probe  while  the  program  is  telling  the  operator  that  the 
other  probe  is  defective  and  what  he  should  do  about  it.  It  is 
shifted  f0.  See  f5  documentation  for  further  details. 

fl3:  *cont  2  - (shifted  fl)  These  three  keys  are  used  by 

fl4:  *cont  35  - (shifted  f2)  the  data  acquisition  program 

fl5:  *cont  36  - (shifted  f3)  vith  no  Dylon  unit.  They  per¬ 

form  the  same  as  fl,  f2,  and  f3. 

*NOTE :  Special  Function  Key  Listing  on  next  page - - - -> 


f  0: 

*erase 

M 

*cont 

5 

f  2: 

*eont 

39 

f  3: 

*eont 

% 

40 

t'4: 

t" 

#eont 

"def ee 

f  5: 

*cont 

"def ec 

tb 


f  6: 

*COht 

65 

f?: 

*com 

72 

f  3: 

*cont 

43  • 

f  9: 

*cont 

23 

f  10: 

*t  rkl 

?  ref  2 

>Y5trk0?rcf  2>  Y 

f lit  *t  r k0? ldf  2 
f  Y 

f 12:  *wrt  9 > "U2C 
t  U2GH 

f 13:  *cont  2 
f 14:  *cont  35 
f 15:  *eont  36 
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FILE  1 
MENU  FILE 


File  0: 

SPECIAL  FUNCTION 
KEYS 


File  It 
MENU  FILE 

File  2: 

DATA  FILE 
COUNTER  FOR 
DYLONJ  USED  BY 
DATA  ACQUISI¬ 
TION  PROGRAMS 

File  3t 
DATA  FILE 
COUNTER  FOR 
DYLONJ  USED  BY 
T?  ENGINEERING 
CONVERSION 
PROGRAM 

File  4: 

DATA  FILE 
COUNTER  FOR 
DYLONJ  USED  BY 
Til  ENGINEER¬ 
ING  CONVERSION 
PROGRAM 


The  menu  file  is  a  listing  of  the  contents  of  the 
program  tape  for  the  XBT  Data  Acquisition  System. 
Just  as  the  contents  of  a  book  list  the  Chapter 
numbers  and  sometimes  tell  something  about  what 
occurs  in  that  chapter,  the  menu  file  lists  the 
files  on  the  program  tape  by  number  and  follows 
those  numbers  with  a  descriptive  phrase  or  sen¬ 
tence  regarding  the  contents  of  that  file.  What 
follows  is  a  more  detailed  listing  of  the  program 
tape  contents: 


FILE  0:  File  0  is  a  data  file  containing  the 
special  function  keys  for  use  with  the  various 
programs  on  the  rest  of  the  tape.  These  keys 
are  loaded  into  memory  with  the  command  ldk0  . 
The  special  function  keys  are  used  primarily 
for  two  things: 

(a)  To  skip  a  part  of  a  program  and  continue  the 
program  again  at  some  later  point.  For  example, 
the  special  function  key  f3  may  be  pressed  when 
the  main  data  acquisition  program  (FILE  8)  is 
stopped  and  waiting  for  another  T7  probe  to  be 
launched.  This  key  will  send  the  program  down  to 
continue  in  the  T7/T11  mode,  thereby  skipping 
approximately  30  program  lines. 

(b)  To  recover  from  program  or  operator  errors. 
For  example,  if  the  main  data  acquisition  program 
is  running  and  the  operator  commands  a  T7  launch, 
he  should  see  the  start  time  of  that  probe  prin¬ 
ted  within  2  seconds  of  launch.  If  he  does  not 
see  that  start  time  printed,  he  presses  STOP  and 
f4.  This  sends  the  program  down  to  the  subrou¬ 
tine  called  "defect"  and  tells  the  operator  on 
which  channel  the  defective  probe  occurred  and  on 
which  channel  to  launch  a  new  probe. 

FILE  1:  File  1  is  the  menu  file  and  may  be  ac¬ 
cessed  by  pressing  LOAD,  1,  and  EXECUTE.  It  is 
being  fully  documented  here. 


FILE  2:  File  2  is  used  by  the  three  data  acqui- 
sition  programs  (FILES  8,9,  and  10).  File  2  is  a 
data  file  which  contains  one  integer.  This  inte¬ 
ger  represents  the  number  of  files  which  have 
been  stored  on  the  Dylon  9-track  tape  (the  actual 
number  on  the  cassette  in  FILE  2  is  one  more  than 
the  number  of  files  which  have  been  written  onto 
the  Dylon  tape.  (Continued  on  next  page). 


FILE  2  (cont.) 
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E^ch  time  one  of  the  main  data  acquisition  pro¬ 
grams  is  used,  the  number  of  files  written  onto 
the  Dylon  tape  by  that  program  is  counted  and 
stored  into  the  variable  Y.  Y  is  actually  one 
more  than  the  number  of  files  already  written. 
When  the  operator  has  finished  using  one  of  those 
programs,  he  pushes  special  function  key  fl0. 

This  key  records  the  value  of  Y  into  FILE  2. 

When  the  operator  restarts  the  program,  the  Dylon 
tape  is  rewound  and  then  spaced  forward  that 
number  of  files.  That  way,  if  IfSf!  files  have 
been  recorded  on  the  Dylon  tape,  the  tape  is  then 
positioned  at  the  start  of  the  one  hundred  and 
first  file  and  is  ready  to  be  written  on. 

FILE  3:  File  3  performs  the  exact  same  function 
that  FILE  2  performed  with  one  exception.  FILE  3 
stores  the  counter  for  the  number  of  files  writ¬ 
ten  onto  the  Dylon  tape  by  the  T7  Engineering 
Conversions  program  (FILE  11) .  The  number  of 
files  is  recorded  onto  FILE  3  within  the  T7  Con¬ 
versions  program  and  is  automatically  reloaded 
whenever  the  program  is  run  again, 

FILE  4 :  File  4  is  identical  to  FILE  3  except 
that  It  is  used  by  the  Til  Engineering  Conversion 
program.  Again,  the  value  of  the  number  of  files 
already  recorded  onto  the  Til  converted  data 
Dylon  tape  is  stored  into  FILE  4  within  the  Til 
Conversions  program  and  is  automatically  reloaded 
whenever  the  program  is  run  again. 

FILE  5 :  File  5  is  a  program  to  check  the  address 
settings  on  the  various  peripherals  involved  in 
the  system.  The  program  is  largely  self-explana¬ 
tory.  It  sends  commands  to  the  different  peri¬ 
pherals  (data  listen,  untalk,  etc.)  while  explain¬ 
ing  each  command  to  the  operator  and  telling  him 
what  should  happen  each  time  if  the  peripheral 
being  addressed  has  the  correct  address  setting 
and  is  working  properly.  The  documentation  of 
FILE  5  informs  the  operator  as^  to  what  he  needs 
to  check  for  if  any  of  the  peripherals  do  not 
respond  properly  as  dictated  in  the  program. 

FILE  5  may  be  accessed  by  pressing  LOAD,  5,  and 
EXECUTE . 

FILE  6:  File  6  is  accessed  by  pressing  LOAD,  6, 
and  EXECUTE.  This  program  is  used  to  set  the 
Real  Time  Clock  (if  desired)  and  to  read  the 
clock.  If  the  operator  chooses  to  set  the  clock, 
he  is  directed  to  do  so  and  then  must  wait  for 
approximately  2 fS  to  2  5  seconds  for  the  clock  to 


FILE  6  (cont.) 
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reset  itself  to  the  new  date  and  time.  Then  the 
date  and  time  will  be  displayed  continuously  un¬ 
til  the  STOP  key  is  pressed.  If  the  operator 
chooses  not  to  set  the  clock,  the  date  and  time 
are  displayed  immediately  and  then  continuously 
displayed  until  the  STOP  key  is  pressed. 


File  5 : 

ADDRESS  CHECK 

File  6  s 

REAL  TIME  CLOCK 
SET  AMD/OR  READ 


File  ?: 

SYSTEM 
CAL  I  BRAT  I  OH 

File  8 : 

OPERATING  PROG. 
XBT  DATA 
ACQUISITION 

File  P : 

OPERATING  PROG. 
XBT  DATA 
AC  OU I S IT  I  OH 
(NO  DYLON) 

rile  10! 
OPERATING  PROG. 
XBT  DATA 
ACQUISITION 
3  CHANNELS  ONLY 


FILE  7:  File  7  is  accessed  by  pressing  LOAD,  7, 
and  EXECUTE.  This  is  a  program  designed  to  do 
two  things: 

(a)  Calibrate  the  A/D  Converter  using  the  inter¬ 
nal  signal  generated  within  the  A/D  Converter. 

(b)  Read  into  the  computer  values  from  the  A/D 
Converter  and  either  print  or  display  them  for 
use  in  system  calibration. 

At  the  start  of  the  program,  the  operator  is 
given  a  choice  to  press  special  function  key  f6, 
which  will  take  him  directly  down  to  the  system 
calibration  section  of  the  program;  or  he  may 
press  the  CONTINUE  key  and  calibrate  the  A/D  Con¬ 
verter  first.  The  first  half  of  the  program 
which  calibrates  the  A/D  Converter  is  self-expla¬ 
natory.  The  second  half  of  the  program  will  read 
in  values  which  have  been  input  into  the  A/D  Con¬ 
verter.  These  values  are  in  the  form  of  counts 
coming  from  the  Converter,  and  on  the  scale  being 
used  by  this  system;  each  count  represents  Iff 
millivolts.  Thus,  a  known  resistance  may  be  ap¬ 
plied  at  a  launch  station  and  the  value  which  is 
read  from  the  A/D  Converter  should  agree  with 
that  resistance.  This  information  may  be  used  to 
calibrate  the  system.  Further,  the  counts  coming 
in  from  the  A/D  Converter  may  be  printed  or  dis¬ 
played.  If  display  mode  is  chosen,  the  operator 
has  a  choice  of  6  different  display  speeds  to 
aid  him  in  calibration.  The  counts  from  the  A/D 
Converter  are  output  to  the  calculator  as  inte¬ 
gers,  so  they  are  displayed  and  printed  as  inte¬ 
gers  also.  The  program  will  read  the  channel 
selected  by  the  operator  until  he  pushes  STOP. 
From  that  point  he  may  continue  to  another  pro¬ 
gram  or  press  special  function  key  f7  and  change 
the  channel,  display  speed,  or  print/display  mode 
(or  any  combination  of  the  above) . 
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FILE  8:  File  8  may  be  accessed  by  pressing  LOAD, 
8,  ancT  EXECUTE.  This  is  the  main  data  acquisi¬ 
tion  program.  It  is  the  most  important  program 
and  the  focal  point  of  the  software  for  the  sys¬ 
tem.  This  program  has  the  following  capabilities: 

(a)  Take  in  data  from  T7  probes  dropped  one  after 
another  at  20  samples  per  second  accurate  to 
within  50  milliseconds  between  any  two  data  points 
in  a  probe  drop. 

(b)  Store  a  full  probe  drop  (120  seconds  worth) 
of  data  onto  an  HP  cassette  and  onto  9-track  tape 
using  a  Dylon  9-track  model  1015A  Magnetic  tape 
formatter. 

(c)  Collect  data  from  T7  and  Til  probes  simulta¬ 
neously  at  a  sample  rate  of” 20  samples  per  second 
per  probe  also  accurate  to  within  50  milliseconds 
between  any  two  data  points  in  a  probe  drop. 

(d)  Store  a  full  probe  drop  (269  seconds  worth) 
of  data  onto  an  HP  cassette  and  onto  9-track  tape 
using  a  Dylon  9-track  model  1015A  Magnetic  tape 
formatter.  (Til  probe  drop). 

(e)  Test  data  as  it  comes  in  for  validity  and 
inform  the  operator  if  the  probe  is  defective 
(broken  wire,  etc.).  Then  tell  the  operator  on 
which  channel  the  defective  probe  is  at  the  time 
and  on  which  channel  to  launch  a  replacement  or 
back-up  probe. 

(f)  Inform  the  operator  when  a  data  cassette  is 
full  so  that  it  may  be  replaced  with  a  blank  one 
for  further  recording  of  probe  data. 

(g)  For  most  of  the  probable  errors,  the  program 
will  not  only  inform  the  operator  what  error  has 
occurred  and  in  which  program  line;  but  it  will 
usually  also  inform  him  as  to  the  peripheral  in 
which  the  problem  has  occurred  and/or  tell  him 
exactly  what  actions  he  needs  to  take  to  remedy 
the  difficulty. 

This  program  is  also  very  flexible  in  that  it 
allows  fairly  easy  changes  to  be  made  in  the 
sample  duration  on  either  type  of  probe,  the 
sample  rate,  etc.  Also,  for  ease  of  access  to 
the  files  later,  the  program  records  the  start 
time  (month,  day,  hour,  minute,  and  second)  and 
the  probe  type  (T7  or  Til)  and  also  records  the 
fact  that  the  data  in  that  data  file  is  either 
raw  (raw)  or  converted  to  engineering  units  in 
terms  of  degrees  Centigrade  (con) . 


File  11: 
ENGINEERING 
CONVERSIONS 
( T7  PROBES) 

File  12: 
ENGINEERING 
CONVERSIONS 
(Til  PROBES) 

File  13 : 

TEMP.  PROFILE 
OFFSET  PLOTTING 
ROUTINE 

File  14 : 
DEVIATION  PLOT¬ 
TING  ROUTINE 


FILE  9:  File  9  is  accessed  by  pressing  LOAD,  9, 
and  EXECUTE.  It  has  the  same  capabilities  as 
FILE  8  with  one  exception;  it  is  designed  to  run 
without  the  Dylon  tape  unit.  If  the  Dylon  should 
not  work  for  any  reason,  the  operator  could  load? 
this  program  and  go  on  taking  data  from  probes 
with  the  only  loss  being  that  the  data  would  not 
be  stored  on  the  Dylon;  only  on  the  cassettes. 

In  all  other  respects  the  program  is  identical  to 
FILE  8  (except  possibly  that  the  line  numbers  are 
different) . 

FILE  10;  File  10  is  another  modified  version  of 
FILE  8.  In  FILE  8  during  the  T7/T11  sampling 
mode,  if  a  Til  probe  is  found  to  be  defective, 
another  Til  probe  may  be  launched  as  a  replace¬ 
ment  or  back-up  probe  on  channel  4  (Til  probes 
are  normally  only  launched  on  channel  3) .  Since 
channels  1  and  2  are  used  alternately  for  T7 
probes,  all  four  channels  have  a  possibility  of 
being  used.  This  program  in  FILE  10  is  designed 
to  work  with  only  3  channels  on  the  assumption 
that  one  channel  has  failed.  If  a  Til  probe 
fails  during  this  program,  a  message  is  printed 
to  the  effect  that  the  Til  probe  on  channel  3 
has  failed,  but  no  back-up  may  be  launched  for 
this  probe.  T7  probes  remain  unaffected. 

FILE  11;  File  11  mav  be  accessed  by  pressing 
LOAD,  11,  and  EXECUTE.  FILE  11  contains  the  pro¬ 
gram  used  to  convert  the  data  taken  from  T7  probe 
drops  and  convert  the  start  time  and  probe  type 
to  reflect  that  conversion.  Explanation  follows: 

First,  the  start  time  is  stored  both  on  a  special 
Dylon  tape  and  on  cassette  on  the  file  directly 
following  the  raw  data  file  which  is  being  con¬ 
verted.  In  this  manner  a  data  cassette  will  con¬ 
tain  files  of  raw  data,  converted  data,  raw,  etc. 
Next,  the  probe  type  of  the  raw  data  (rawT7  )  is 
changed  to  conT7  to  reflect  the  fact  that  this 
file  now  being  stored  is  converted  data  ("con") . 
This  new  probe  type  is  also  stored  on  Dylon  and 
cassette.  Then,  the  raw  data  is  put  through  a 
conversion  equation  and  the  converted  data  (in 
the  form  of  degrees  Centigrade  between  10°  and 
30°)  is  stored  on  cassette  and  on  Dylon. 
(Continued  on  next  page.) 
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FILE  11  (cont.) 
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9 :  b  e  e  p  5  d  s  p  "MEN 
U  FILE  (Press 
Cont  i  nue ) "  .*  st-  p 
1 !  e n t  " N o .  of 
file?  (For  all  5 
type  19  0 ) " , J 
£!  if  J # 1 0 9 1 J m p 
J+l 

3 '  p  r t  "File 
9: ", "SPEC  I  PL 
FUNCTION", " 
KEVS"5-gsb 
“all" 

4:  Prt  "File 
li", "MENU  FILE" 
j  ■?  s  b  "all" 

5:  prt  "File 
2: ", "DATA  FILE" 
, "COUNTER  FOR", 
"OYLONi  USED 
BY" , "DATA  flCQUI 
S I  - " 

6:  Prt  "TION 
PROGRAMS" j  asb 
"oil" 

? :  prt  "File 
3.*  ",  "DATA  FILE" 
,  "COUNTER  FOR", 
“OYLONi  USED 
BY", " T 7  ENG  I  NEE 
RINu" 

8:  prt  " CON VERS  I 
ON",  "PROGRAM"; 

■9 s b  “all" 

9:  Prt  "File 
4:  "  <  "DATA  FILE" 
,  "COUNTER  FOR", 
"DYLONJ  USED 
BY", "Til  ENGINE 
ER-" 


This  program  also  tells  the  operator  when  the 
data  cassette  on  which  it  is  working  has  been 
fully  converted  and  gives  him  a  choice: 

He  may  insert  another  tape  and  convert  that  data 
or  he  may  continue  on  to  the  Til  Engineering 
Conversions  program  (FILE  12) .  He  may,  of  course 
stop  altogether  if  he  so  desires.  If  he  chooses 
to  go  on  to  the  Til  Conversions  program,  this 
program  will  set  up  the  Til  program  almost  entire 
ly  and  then  actually  load  and  start  the  program 
for  the  operator.  The  operator  is  given  minimal 
instructions  concerning  which  tapes  to  load  and 
which  special  function  keys  to  push;  the  program 
does  the  rest  internally.  It  is  necessary  that 
FILE  11  set  up  as  much  as  possible  of  FILE  12 
before  actually  loading  that  file  because  memory 
space  in  the  program  in  FILE  12  is  critical. 

FILE  12:  FILE  12  performs  the  same  functions  as 
FILE  IT  except  that  FILE  12  deals  with  Til  probes 
Also,  FILE  12  does  not  give  the  operator  the 
choice  of  going  back  to  the  T7  Engineering  Conver 
sions  program  after  a  data  cassette  has  been 
converted.  Although  this  file  is  usually 
accessed  through  FILE  11,  it  may  also  be  reached 
by  pressing  LOAD,  12,  and  EXECUTE. 

FILE  13:  File  13  may  be  accessed  by  pressing 
LOAD,  13,  and  EXECUTE.  This  is  the  T7/T11  Offset 
plotting  routine.  The  operator  is  given  a  choice 
of  plotting  from  the  Dylon  tape  (Converted  Engin¬ 
eering  units  only)  or  from  cassette.  This  pro¬ 
gram  will  plot  up  to  five  T7  and/or  Til  probes. 
Although  all  probes  of  the  same  type  must  be 
plotted  in  chronological  order,  the  probe  types 
may  be  plotted  in  any  order  selected  by  the  oper¬ 
ator.  For  example,  the  operator  may  decide  to 
plot  1  Til,  2  T7's,  1  Til,  and  another  T7.  Each 
plot  is  offset  from  the  others;  this  amount  of 
offset  is  also  operator  controlled.  The  operator 
may  also  decide  whether  or  not  he  wishes  to  have 
the  plotter  stop  after  the  plot  of  each  probe  to 
allow  him  to  change  pen  colors.  Each  probe  is 
labeled  as  to  start  time,  location  on  the  graph, 
and  probe  type.  The  program  is  also  fully  auto¬ 
matic  in  setting  the  upper  right  and  lower  left 
limits  on  the  plotting  surface;  the  only  neces¬ 
sary  operator  function  regarding  the  plotter  is 
the  changing  of  pens  (if  so  desired)  and  the 
loading  of  paper. 


7 


10:  prt-  "  I HG 
CONVERSION"? 
"PROGRAM" ? gsb 
"  o.  1 1 " 

11:  prt  "File 
5:  "? "ADDRESS 
CHECK" ; esb  "all 

IS:  prt  "File 
6:"? "REAL  TIME 
CLOCK" s "SET 
AND/OR  RE':  D "  5 
e  •=•  b  "oil " 

13:  prt  "File 
7 :  "  j  "SYSTEM"? 
"CALIBRATION"? 

•g  =  b  "  a  1 1 " 

14:  prt  "File 
8: "? "OPERATING 
PROG. "? "X8T 
DATA"? "ACQUISIT 
ION" ?  esb  "all" 

15:  p r  t  "File 
9:  "? "OPERATING 
PROG. "? "XBT 
DATA"? “ACQUISIT 
ION" 

1  o :  prt  "  ( N  0 
DYLON) " ?  ?sb 
"all" 

17:  prt  "File 
10: "? "OPERATING 
PROG. "? "XBT 
DATA"? "ACQUISIT 
ION" 

IS:  prt  "3  CHflNN 
ELS  ONLY"  ?*  esb 
"all " 

19:  Prt  "File 
11:"? "ENGINEER  I 
NG"? "CONVERSION 
S " ? " t  T 7  PROBES) 
"??sb  “all" 


FILE  14:  File  14  is  accessed  by  pressing  LOAD, 
14,  and  EXECUTE.  This  program  is  the  T7  or  Til 
Deviation  plotting  routine.  This  program  will, 
like  the  Offset  plotting  routine,  plot  from  ei¬ 
ther  the  cassette  or  Dylon  tape,  and  the  operato 
may  change  pen  colors  during  plotting  if  so  de¬ 
sired.  But  this  routine  plots  the  normal  probe 
profile  on  the  left-hand  side  of  the  paper  first 
Then  on  the  right-hand  side,  a  grid  of  identical 
size  to  the  left-hand  grid  is  drawn  and  a  line  i 
drawn  vertically  down  the  middle  of  this  grid. 
This  vertical  dotted  line  represents  the  Mean. 
The  Mean  is  not  any  set  number.  It  is  merely  a 
standard  used  for  plotting  purposes  in  this  man¬ 
ner: 

The  first  49  data  points  are  read  into  an  array. 
This  array  is  multiplied,  point  for  point,  with 
another  array  of  the  same  size  containing  weight 
ing  factors  in  the  shape  of  a  cosine  bell  curve. 
The  end  points  of  the  data  point  array  have  a 
weight  of  0  and  the  mid-point  has  a  weight  of  1. 
These  new  values  are  now  used  to  obtain  a  weight¬ 
ed  average  of  those  49  data  points.  This 
weighted  average  now  becomes  the  Mean  over  the 
specified  interval  of  data  points.  The  value  of 
the  mid-point  of  the  interval  is  subtracted  from 
this  Mean  value,  and  the  result  is  plotted  on 
the  right-hand  (Deviation)  grid  parallel  with  th( 
mid-point  in  a  vertical  direction  and  the  value 
of  the  result  away  from  the  dotted  Mean  line  ? 
(plus  or  minus) .  The  operator  may  select  the 
scale  of  the  Deviation  grid.  Full  scale  may  be 
anywhere  from  +  5°C  down  to  (in  effect)  +0°C. 

In  this  manner,  the  operator  has  total  control 
over  the  amount  of  definition  that  the  plot  will 
show  him  regarding  the  amount  of  Deviation  from 
the  Mean  line. 
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FILE  2 

DATA  FILE  COUNTER  FOR  DYLON;  USED  BY 
T7  ENGINEERING  CONVERSION  PROGRAM 

FILE  3 

DATA  FILE  COUNTER  FOR  DYLON;  USED  BY 
Til  ENGINEERING  CONVERSION  PROGRAM 

FILE  4 

DATA  FILE  COUNTER  FOR  DYLON;  USED  BY 
DATA  ACQUISITION  PROGRAMS  (FILES  8  AND  10) 


FILE  2 

DATA  FILE  COUNTER  FOR  PYLON 

(Data  Acquisition  Programs) 

File  2  is  used  primarily  by  the  data  acquisition 
programs  in  FILE  8  and  FILE  10.  It  is  a  data 
file  which  only  contains  one  integer.  This  inte¬ 
ger  represents  the  number  of  files  which  have 
been  stored  on  the  Dylon  9-track  tape  (the  actual 
number  on  the  cassette  in  FILE  2  is  one  more  than 
the  number  of  files  which  have  been  written  onto 
the  Dylon  tape.  Each  time  one  of  the  main  data 
acquisition  programs  is  used,  the  number  of  files 
written  onto  the  Dylon  tape  by  that  program  is 
counted  and  stored  into  the  variable  Y.  Y  is 
actually  one  more  than  the  number  of  files  al¬ 
ready  written.  When  the  operator  has  finished 
using  one  of  those  programs,  he  pushes  special 
function  key  fl0.  This  key  records  the  value  of 
Y  into  FILE  2.  When  the  operator  restarts  the 
program,  the  Dylon  tape  is  rewound  and  then 
spaced  forward  that  (Y)  number  of  files.  That 
way,  if  100  files  have  already  been  recorded  on 
the  Dylon  tape,  the  tape  is  then  positioned  at 
the  start  of  the  one  hundred  and  first  file  and 
is  ready  to  be  written  on  from  that  point. 

FILE  3 

DATA  FILE  COUNTER  FOR  DYLON 
(T7  Engineering  Conversions  Program) 

File  3  performs  the  same  function  that  FILE  2 
performs  with  one  exception.  FILE  3  stores  the 
counter  for  the  number  of  files  written  onto  the 
Dylon  tape  by  the  T7  Engineering  Units  Conversion 
program  (FILE  11) . 


FILE  4 

DATA  FILE  COUNTER  FOR  DYLON 
(Til  Engineering  Conversions  Program) 

File  4  performs  the  same  function  that  FILE  2  and 
FILE  3  perform  with  one  exception.  FILE  4  stores 
the  counter  for  the  number  of  files  written  onto 
the  Dylon  tape  by  the  Til  Engineering  Conversions 
program  (FILE  12) . 


FILE  5 

ADDRESS  CHECKS  FOR  PERIPHERALS 


\ 
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*  * 
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0 »  beepjdsp  "Add 
ress  checks 
for  peripherals 

.  "  5  st-  P 

It  prt  "Each 
tine  t-  he"? "run 
light  is"?  "not- 
on?  vou" ? "shoul 
d  p  r  e  =  s  t  h  e " 

£ t  prt  "CONTINUE 
\  «  .  •• 


lav  for" » "posit 
ion  of  run"? 
"light-."!  spc  2! 
b  e  e  p 

4:  dsp  "Run  lish 
t-  is"!  wait  4Q00 
5:  beepjdsp  "t 
he  re. " !  wa  i  t- 
3000! beep 
6:  prt  "Each 
tine  you" > "pres 
s  the" > "CONTI HU 
E  key? " ? "a  diff 
erent " 

?:  prt  "aspect- 
of  the" » “peri ph 
era!  a  d  ~ ? " d  r  e s 
s  will  be" f "che 
c  k  e  d .  "  5  s  p  c  2 
St  beepjdsp  "CHE 
CKsflLL  PER IPHER 
ALS  CONNECTED?" 
5  s  t  p 

9:  beepjdsp  "Tur 
n  Plotter  power 
OFF.  "5st-P 
10:  prt  "A/D 
CONVERTER:  "? 
"Uhen  you  press 
"f "CONTINUE? " 
lit  prt  "t-he 
talker  light"? 
"should  co we 
o  n . "  5  s  p  c  £  ?  s  t  p 
12:  end  ?>"F"! 
s  t  P 

13:  prt  "Now 
the  light"? "sho 
uld  go  off."! 
spc  2! wait  £OO0 
14:  Urt  706? "&"j 

st  P 


0:  thru  7:  Lines  0  thru  7  describe  what  the  pro¬ 
gram  is  and  what  it  will  do.  The  program  is  de¬ 
signed  to  write  commands  to  each  peripheral  in 
turn  to  make  sure  (a)  that  all  connections  are  in 
order  and  (b)  that  all  peripherals  have  the  pro¬ 
per  addresses.  Lines  0  thru  7  also  tell  the  oper¬ 
ator  to  push  the  CONTINUE  key  each  time  the  pro¬ 
gram  has  stopped. 

8:  and  9;  These  two  lines  tell. the  operator  to 
check  and  be  sure  that  all  peripherals  are  con¬ 
nected  through  the  bus  into  the  calculator  and 
then  tell  him  to  turn  the  plotter  power  OFF  so 
that  the  plotter  will  not  be  affected  by  bus 
commands  used  to  test  the  A/D  Converter  and  Dylon 
Tape  Unit. 

10:  thru  14:  Lines  10  through  14  write  the  Data 
Talk  command  designed  for  the  A/D  Converter  over 
the  HP-IB  bus.  When  the  light  (Data  Talk  Light) 
comes  on,  the  program  then  tells  the  operator  to 
look  and  see  if  the  light  goes  off  and  line  14 
outputs  the  Data  Untalk  command  which  shuts  off 
the  light.  The  program  is  then  stopped  to  wait 
a  CONTINUE  from  the  operator. 

15:  thru  24:  Lines  15  through  24  do  the  follow¬ 
ing:  (telling  the  operator  what  to  look  for  each 

time) -  write  the  Data  Listen  command  to  the 

Dylon  to  light  up  the  Data  Listen  Light?  write 
the  Data  Talk  command  to  extinguish  the  Data  Lis¬ 
ten  Light  and  light  up  the  Data  Talk  light;  and 
write  data  onto  the  tape  so  that  the  tape  moves 
and  therefore  showing  that  not  only  the  Tape  For¬ 
matter  but  the  Tape  Drive  as  well  is  working. 

The  program  is  again  stopped  to  await  a  CONTINUE. 

25:  thru  32:  Lines  25  through  32  direct  the  oper¬ 
ator  to  position  the  plotter  pen  in  the  center  of 
the  platen  and  in  the  DOWN  position  after  turning 
the  plotter  power  on.  The  plotter  is  then  cleared 
and  given  the  PEN  command  (raises  the  pen)  and 
the  IN  command  (places  the  pen  back  into  the  ini¬ 
tial  chart-load  position.  The  test  is  now  com¬ 
pleted,  so  the  computer  displays  the  message 
TEST  COMPLETE  and  stops  the  program. 

*NEXT  PAGE  FOR  FURTHER  PROGRAM  LISTING - > 


15?  prt  "DYLON  ' 
TAPE  UHIT: " * 
"When  you  press- 
"* "CONTI  HUE * "* 
"the  Data  Liste 
n" 

16.:  prt-  "lisht 
should" * "cone 
on. "5 spc  2>stP 
1?:  end  7  * " "  5 

StP 

13:  prt  "When 
you  press"* "CON 
TINUE  this"* 
"tine*  the  Data 
"* "Listen  light 

i* 

19:  prt-  "should 
so  off  5" > "the 
Data"* "Talk 
light " * "should 
c  o  n  e  o  n .  "  *  s  p  c 

2  j  s  t  p 

20:  end  7>"E"> 

StP 

21:  prt.  "Now 
when  you"* "pres 
s  CONTINUE"* 

"t.  he  Dat.a  Liste 
n"* "light  shoul 
d" 

22:  prt  "cone 
on  and"* "the 
tape  should"* 
"wove  forward" 
23:  prt  "about 

3  inches."* spc 
25  stP 


24:  wrt  704* "B10 
W10" 5 end  7>"r>. 
wrt  705* B? stP 
25:  prt  "PLOTTER 
"  *  "Turn  plotte 
r“* "power  on.  "5 
spc  25 stP 
26:  prt.  "Osiris 
the  front"* "pan 
el  controls* "> 
"position  the  • 
pen" 

27 :  prt  "near, 
the  center"* 

"of  the  paper"* 
"and  press  t'he" 
*  "PEN  DOWN  bu.tt 
on" 

23:  prt.  "on  the., 
f  ront  " * "panel . " 
>spc  25 stP 
29:  prt  "When  ' 
you  press"* "CON 
TINUE* "» "the 
pen  should"* 
"cone  up  and" 
30:  prt-  "return 
to  the" > "  init  ia 

1  chart-" >" load 
posit,  ion"  *  spc 

2  ?  s  t-  p 

31:  p- sc  707* wait 
100JPSC  707* 
wait  100*  p s c 
707*  pen* wrt 
707* x IN- 
32:  wait  3500* 
beepjdsp  “Test 
Conplete" *  stP 
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0 •  befpjdsp  "Rea 
1  T i n e  Cl o c k 
Set.  and/or  Read 
“  5  beep?  s t- p 
l:  din  Cl  [14] 5 
ent  "  Uant  to 
change  date 
and  ti«e?"jC$ 

2:  if  Cl#" yes"? 
if  Cl#" y " 5 sto 
12 

3:  din  fill  14];" 

?  14] 

4:  dsp  “Enter 
date  and  tine"? 
wait  1000 
5s  dsp  "as  two- 
diait  nunbers"? 
wait  1000 
6s  ent  "Month?  (C 
C)  "j  fllCl»2] 

?s  ent  "Day? (DO) 

"  j  fi!  [4  j  5] 

8s  ent  "Hour? (HH 
)  "»fl*[?>8] 

?s  ent  "Minute?  ( 
MM) "* flIC 10i 11] 

1 8 s  ent  "Seconds 
?(SS)  "»ft|[13» 

14] 

1 1  s  w  r  t  9 }  "  S " » 
flliwrt  9 j " B " 

12s  dirt  BIC30]  • 

1 3  s  w  r  t  3  j  "  R "  5 
red  9 « Cl 

14s  "DATES  "->BI 
Cl..?]  JCI  C1»2]4B 
I  C8>  93  ;  " / " 4 B I E 1 
0  5  10]  ;  C I C 4  >  5 ]  ■> B 

in  1 5 12] 

155  "  TIMES 
"  *  B I  El  3 «  2  2  ]  J 
CIC?« 14]+3!C23» 
SO] 

16  5  d  * p  B I 
l?s  sro  13 
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PILE  6 

REAL  TIME  CLOCK  SET  AND/OR  READ 

0:  and  1:  These  two  lines  give  the  title  of  the 
program  and  ask  the  operator  whether  he  would 
like  to  change  the  date  and  time  (reset  the  clock) 

2:  If  the  answer  to  the  question  in  line  1  was 
yes,  the  program  continues  to  line  3.  If  the 
answer  was  anything  but  yes,  the  program  is  sent 
directly  down  to  line  12  to  read  the  clock. 

3:  thru  10:  Lines  3  through  10  dimension  the 
string  variable  A$  for  the  time  (and  date)  and 
input  the  values  for  the  Month,  Day,  Hour,  Minute, 
and  Second  into  the  string  as  the  operator  enters 
them  into  the  computer  upon  command. 

11:  Line  11  inputs  the  value  of  A$  into  the  real 
time  clock  using  the  "S"  command.  The  "B"  com¬ 
mand  used  next  is  a  command  to  clear  the  real 
time  clock  in  preparation  for  a  read  statement. 

*NOTE:  This  clear  command  to  the  clock  may  take 
up  to  25  seconds  to  execute,  so  it  is  suggested 
that  the  operator  wait  a  minimum  of  30  seconds 
after  pressing  the  last  continue  to  allow  the 
clock  to  enter  the  new  time  and  clear  itself. 

12:  thru  17:  Lines  12  through  17  are  reached 
either  by  answering  no  to  the  "Want  to  change 
date  and  time?"  question  in  line  1  or  after  the 
clock  has  fully  cleared  itself  in  line  11.  These 
lines  display  the  d^te  and  time  as  fast  as  the 
computer  can  read  it,  display  it,  and  go  back  to 
read  it  again.  They  are  displayed  in  the  format: 
DATE:  07:18  TIME:  08:12:34 

*NOTE:  To  stop  the  program,  simply  press  the 
STOP  key. 


0 •  prt  "To  calib 
rate  the'VR/O* 
press" - "CONTIH 
U  E "  5  s  p  c  3  5  p  r  t- 
“Svstert  Test:" 

1:  prt.  "To  reed 
ft/D" >  "values 
(counts" ? "or 
degrees  C )  > 
“Press  f  6"  5  spc 

2  5  stP 

2:  dsp  "This 
program  allows 
fi/0  zero  and" 

3:  wait  20905 
dsp  "so.  iri  ado  us 
tments  to  be 
made. " 5  wait 
2000 

4:  dsp  "The  valu 
e  displayed 
represents" 5 
wait  2009 

5:  dsp  "the  actu 
al  binary  count 
f rom" 5  wait 
20OO 

t>:  diP  “the  5931 

3  ft  ft / D , " 5  w  ait 
2000 

7  *  d  s  P‘  Place 
the  CftL  switch 
in  the  O  "5  wait- 
2000 

8:  dsp  "position 
a n  d  e  n  sure 
that  input  "5 
w  ait  20  9  0 
dsp  "plugs 
have  been  remov 
ed." 5 wait  2OO0 

10:  dsp  “Hdaust 
the  zero  set 
for  O.Ot  "5  wait 
20  fry 

1 1 ;  dsp  "o_  1 ; so 

la.  ? d  on  t  h e 
9825ft. “5  wait 
2000 

12:  dsp  “MOTE: 

It  i  he  ft.'D  Conv 
e  r  t  e  r  is"?  w  a  i  t 


FILE  7 

A/D  CONVERTER  AND  SYSTEM  CALIBRATION 

0:  and  1:  Lines  0  and  1  give  the  operator  a 
choice  of  whether  to  calibrate  the  A/D  Converter 
and  then  calibrate  the  system  or  to  go  straight 
to  the  system  calibration.  If  the  operator  goes 
straight  to  the  system  calibration  he  must  press 
f 6  (see  special  function  key  listing) .  To  go  on 
to  the  A/D  calibration  first,  he  need  only  press 
the  CONTINUE  key. 

2:  thru  16:  These  lines  are  self-explanatory  in 
that  they  are  merely  statements  designed  to  make 
the  computer  either  print  or  display  messages  to 
the  operator  to  tell  him  how  to  set  up  the  system 
for  calibration  of  the  A/D  Converter  and  what  to 
expect  in  the  upcoming  calibration  tests. 

x~>  thru  37:  These  lines  test  each  channel  from 
1  tj  4  on  the  A/D  Converter  to  see  if  the  0  set 
-a  equal  to  0.  If  the  number  read  is  not  equal 
to  0  then  it  is  displayed  until  the  operator  cali¬ 
brates  the  0  set  back  to  0;  the  program  then  con¬ 
tinues  on  to  the  next  channel. 

38:  thru  47:  These  lines  inform  the  operator  as 
to  the  nature  -•* "  the  next  calibrations  to  be  per¬ 
formed.  They  te. 1  the  operator  to  adjust  the 
gain  set.  on  the  A/1'  Converter  to  match  the  proper 
reading  as  set  forth  on  page  3-16  of  the  59313A 
operating  and  programming  manual.  These  proper 
gain  sets  are  as  follows: 

SWITCH  POSITION  (IN  BACK  OF  A/D) :  HEADING : 

0  0 

-1  -100 

-5  -500 

48:  thru  63:  These  lines  display  the  count  from 
each  channel  in  turn  for  a  short  time  so  that 
gain  adjustments  may  be  made. 

64:  thru  68:  Line  64  displays  the  message  TEST, 
COMPLETE  and  then  the  next  4  limes  tell  the  opera¬ 
tor  to  press  the  CONTINUE  key  to>  initiate  the 
system  test.  The  message  SYSTEM  TEST  is  displayed 
and  the  program  is  stopped. 


‘NEXT  PAGE  FOR  FURTHER  PROGRAM  LISTING  AND  EX¬ 
PLANATIONS - E> 


13:  dsp  "already 
calibrated  to 
Z  £  r'  o  >  "  5  w  a  i  X 
3000 

14:  d r  "no  oalu 
.?  will  be  displ 
o,  ad  and" 5  wait 
2000 


15:  dsp  "the 
program  will 
continue  to 
the" 5  wait  2800'' 
16:  dsp  "next 
channel  autonat 
ical ly. " 5  wait 
2808 

17:  beepjdsp 
-Channel  1"? 
wait  2800 
18:'  f  nt  1  j  z>  f  .  0 
19: .  wrt  706. 1 1 
"HilflJ". 

20:  -iortshf  (rdb(. 
7861 > -3) >  rdb (70, 
61)  ft  ' 

21:.  if  .R=05  B+ 
HBS-if  B- 1 00 5 
gto-23  ••i 

22:  dsp  R5sto  19i 
23: . beep?  dsp 
"Channel  2" 5 
wait  2080  ' 

24:  wrt  706.1? 
"H22RJ" 

25:  i or (shf ( rdb C 
786) » -S) t  rdb (78 
6)Hfl 

26:  if  8=8 5  C+ 

H  C  5 if  C~ 1 00 5 
eto  28 

27:  dsp  R5  eto  24 
28:  beepjdsp 
"Channel  3" 5 
wait  2008 
29 :  wrt  7Q6 . 1 > 
"H44RJ" 

30:  ior (shf ( rdb C 
786) > -8) > rdb (78 
6 )  )  >  fi 

31:  if  8=8 5  D+ 

HO?  if  0=100  5 
■3 to  33 

32:  dsp  R5sto  29 
33:  beepjdsp 
"Channel  4"? 
wait  2O00 
34:  wrt  786. 1 > 
"HS3RJ" 

35:  ior  (shf ( rdb ( 
706) > -8) j  rdb (78 
6)  )  *8 

36:  if  8=0  5  E  + 
HE!  if  [>1085  , 

■?  t  o  38 

37:  dsp  8  5  no  34 


38:  dsp  "RdJust 
the  gain  set' 
for  the  "5 wait 
2008 

39:'  dsp.  "proper 
read  ins  as  show 
n  on  pase  "5 
wait  2000 
40:  dsp  "3-16 
of  the  59^138 
operation  "5 
wait  2088 
41:  dsp  "and 

.  prosraMMins 
manual . " 5  wait 
2000 

42:  dsp  "The 
count  from  each 
•  channel  "5'foait 
2000 

43:  dsp  "is  disp 
laved  for  a 
short  tine  "5 
wait  2080 
44:  dsp  "so  .that 
gain  adjustnen 
ts  can  "5 wait 
2008 

45:  dsp  "be  Made 
and  then  the 
next  "5 wait 
2080 

46:  dsp  "channel 
is  displayed 
in  sequence"? 
wait  2080 
47: 'dsp  "Press 
CONTINUE  to 
bee  in  test"? 

St-P 

48:  beep?dsp 
"Channel  1  sain 
ado . " 5  wait 
20005  0*11  >- 
49:  N  +  HN5wrt 
786. 1 » "HI 18J" 
50:  if  N  = 1 5 0 0 5 
sto  52 

51 :  dsp  ior(sht( 
rdb  '.706)  >  -  8 )  > 
rdb  (786) )  5  sto 
49 

52:  beepjdsp 
"Channel  2  sain 
ad  j . " 5  wa i t 
20035  0*N 


2 


5 3 i  H+l9N?wrt 
706.  1<  "H22flJ" 

54:  if  M= 15O0j 
?  t  o  5  6 

55:  dsp  iori'shf( 
r d b ( 706) ? - 8 ) ? 
rdb (  706) )  5  3 1 o 
53 

5  6  :  b  e  £  p  5  d  s  p 
"Channel  3  ■gain 
a  d  i .  ”  5  w  a  i  t 

2  0  o  0 ;  o  •*  m 

57:  N+l+HSurt 
706. 1 5  "H44fiJ" 

58:  if  H  = 1 5 0 0 5 

9  t  0  6  0 

59:  dsp  ior(shf( 
r  d  b  ( 7  0  6 )  ?  -  8 )  .< 
rdb  (706)  )  5  g t  o 
57 

60:  beep  5  ds p 
"Channel  4  gain 
a d o  .  "  5  wait. 
20005 0*N 

61:  N+  1  -> N ? wrt 
706.  1 ? " H 8 8 ft J  ' 

62:  if  H  = 1 5 0 9 5 
g  t-  o  6  4 

63:  dsp  ior(shf( 
rdb (706 ) ? -3) ? 
r  d  b  ( 7  8  6 )  J  5  g  t  o 
6 1 

64:  dsp  "Test 
comp  1 et e " 5  beep 5 
wait  20O0 

65:  prt-  "Press 
Cont inue" j  "to 
read  in"?" fl/0 
’.'Glues  and"  i 
"  d  i  s  p  1  a  y  o  r 
print " 

66:  prt  "then. 
What " ? "fol lows 
is  a " j "set  of 
auest  ions"  .-"to 
set  up  that" 

67:  p  r  t.  "  d  i  s  p  1  a  y 
o  r  p  r  i  n  t  "  5  s  p  c 

68:  dsp  “ 

S/stem  lest" 

5  s  t  p 


69:  thru  71:  Lines  69  through  71  inform  the 
operator  that;  "To  change  channel  number,  output 
speed,  or  to  change  the  print/display  option; 
press  STOP  and  f7."  (See  special  function  key 
listing  for  f7). 

72:  thru  79:  These  lines  allow  the  operator  to 
enter  into  the  calculator  the  number  of  channel 
to  be  read,  whether  he  wants  the  counts  from  the 
A/D  Converter  to  be  printed  or  displayed.  If  he 
chooses  to  display  the  values,  he  may  choose  from 
any  one  of  six  display  speeds  from  0  (slow)  to 
5  (fast) . 


80:  thru  94:  These  lines  input  the  selected 
values  for  the  channel  and  speed  into  the  proper 
variables  and  continue  to  read  and  display  values 
from  the  A/D  Converter  until  the  stop  button  is 
pushed. 


95:  Line  95  is  only  reached  if  the  operator 
chooses  to  print  the  A/D  values  rather  than  to 
display  them.  This  line  reads  in  A/D  values  and 
prints  them.  (The  display  statements  are  skipped 
in  the  segment  just  preceding  this  line  by  the 
stipulation  that  line  94  may  not  be  executed  un¬ 
less  flag  2  has  been  set,  which  indicates  that 
the  operator  had  chosen  the  display  option.) 


69:  prt  1  To  chan 
?e " ? " channel 
number  ?  "  ?  "out-pu  • 
t  speed?  " 

70:  prt.  "or  to 
change  the"? 

"pr Int /display " 

? "option?  press 

M 

71:  prt  "STOP 
and  f?."5spc  2 
72:  c  f  g  5  e  n  t 
"Number  of  chan 
nel  to  be  read? 

"  ?  F 

73:  fxd  05ent 
"Counts  (0)  or 
T  empe rat  u re 
( 1 )  ? "  ?  H 

74:  if  H= 1 5  gsb 
' Constants"  i 

75:  ent  “Print 
d  a  t  a.  ( 1 )  o  r  d  i  s  p 
1  a  v  ( 8 )  ? "  ?  U 
76:  if  U  = 1 5  g t o 

i  c'  1  ?  »-•  t* 


77:  sfg  2?dsP 
"Select  desired 
display  speed 
by "5 wait  2000 
78:  dsp  "typing 
in  a  number 
f  r 0 m  6  to  5 "  5 
wait  2000 
79:  ent  "where 
O  is  the  si  owes 
t  s  peed " ?  T 
80:  if  T =0?  ?50*T 
81:  if  T=1?600*T 
82:  if  T=2?450*T 
83:  if  T=35300*T 
84:  if  T=4?150*T 
85:  if  T=5?0*T 
86:  "select":  if 
F<35  F*G5  gto 
"read" 

87:  if  F  =  3 5  4 G 5 
g  t,  o  "  r  e  a  d  “ 

88:  8*G 

89:  "read“sfmt 
1  ?  2?  f . 05  wrt  9? 

"  ft  ?  U  £  =  1 3  ?  U  £  C  ? 
U2G" 


90s  wrt  706.1 j 
"H"»G» G»  "flJ"; 
if  f  1  -5 1 0 j  f  x d  11 
91  s  ior (shf ( rdb ( 
70S) ? -8) ?  rdb (70 
6)  )*fl 

92:  if  f 1 ? 1 0 5  ft / 
100+fij  I  +flJ+Kflt2 
+Lflt3+Mflt4+0ftt5 
+  fi 

93:  if  f  !  =•  1 0  j 
fxd  3 

94:  if  f 1 g25  dsp 
ft 5  wait-  T 5  ■=» t o  90 
95:  prt  fijgto  90 
96:  "Const. ants" : 
fxd  11! 19.85325 
88513*15 .984312 

.“i  ."i  .4  ^  I  ■  i  .•»  4  A 


36493  + 

J 

• 

j 

1.2810 

3 

26 1 04  e 

- 

o 

*-■ 

*K 

97 

:  1.448 

1456272 

e-4-L  j 

1 

771491 

i 

524s-6 

A 

M 

5 1 . 327 

0 

760159 

•y 

1 

o 

-7  +  05 

X 

f  •?  10 

98 

:  ret 

*2956? 


i 
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J 

I 

I 

J 

! 

I 

^  FILE  8 

I  OPERATING  PROGRAM,  XBI  DATA  ACQUISITION 

I 

I 


FILE  8 

MAIN  DATA  ACQUISITION  PROGRAM 


0:  ldt'  Y?  beep? 
prt  “JUST  befor 
e "  ?  "  e ras  i  h* 
this "  j  "  p  r  o  •?  r  a  i'i  t 
be  sure " 

l:  Prt  "to  inser 
t  t. he")  " pros r a rt 
tape  and"»"pre 
ss  flO.-JsPC  35 
b  e  e  p  5  s  t  p 

2:  wrt  764. "Q" 5 
prt  "When  Dvion 
stops" >  "press 
CONTINUE" »spc 
2  5  aud? f xd  0  5 
s  t  P 

3:  wrt  7 8 4  j "V Q K " 

>  Y  5  o  n  e  r  r  "  e  r  r  o 
r " 

4:  tihe  20OO5 
wrt  9 ?  " fl ?  U 2  =  i 3 
5 prt  "Insert 
data  t a p e “ 5  s p o 
2  5  stP 


0:  and  1:  Lines  0  and  1  load  the  value  of  the 
number  of  files  already  written  onto  the  current 
Dylon  9-track  tape  from  the  program  tape  into  the 
variable  Y.  This  value  will  be  used  later  in  the 
program  to  position  the  Dylon  tape  to  the  first 
blank  file  on  the  tape.  The  programmer  is  then 
informed,  via  the  internal  printer  of  the  calcu¬ 
lator,  "Before  erasing  this  program,  be  sure  to 
insert  the  program  tape  and  press  fl0."  Pressing 
fl0  with  the  program  tape  inserted  will  record 
the  new  value  of  Y  (Dylon  tape  file  counter)  back 
into  file  2  to  be  used  the  next  time  the  program 
is  loaded  and  run.  The  program  is  now  stopped  to 
make  sure  that  the  operator  reads  the  message  and 
to  await  his  CONTINUE. 

2:  Line  2  rewinds  the  Dylon  tape  and  prints: 

"When  the  Dylon  stops,  press  CONTINUE".  The  avd 
command  is  the  automatic  verify  disable  commancl" 
and  saves  time  in  recording  data  to  lessen  the 
gaps  created  in  Til  probes  during  the  recording 
of  T7  data.  fxd0  sets  a  fixed  decimal  point  with 
zero  digits  following  that  decimal  point  for  any 
number  in  the  calculator.  The  program  is  now 
stopped  to  await  a  CONTINUE  from  the  operator. 

3:  In  this  line,  a  file  mark  is  written  at  load 
point  on  the  Dylon  tape  and  it  is  then  rewound 
and  spaced  forward  the  number  of  files  represent¬ 
ed  by  Y.  This  positions  the  Dylon  tape  at  the 
file  after  the  last  recorded  data  file.  This  is 
accomplished  because  the  value  of  Y  is  initial¬ 
ized  at  a  value  of  1.  Therefore,  if  one  data 
file  has  been  recorded,  the  value  of  Y  will  be  2 
and  the  tape  will  be  spaced  forward  to  the  start 
of  the  second  file  on  the  tape.  The  on  err  state¬ 
ment  sets  up  an  error  condition  in  the  calculator 
which  searches  for  errors  and  sends  the  program 
down  to  a  subroutine  called  "error"  when  one  oc¬ 
curs.  This  subroutine  starts  at  line  144  and  will 
be  explained  later. 

4:  The. first  command  sets  a  time  limit  of  2  sec¬ 
onds  for  any  peripheral  being  addressed  by  the 
calculator  to  respond.  If  the  peripheral  does 
not  respond  within  that  2  seconds,  an  error  E4 
condition  is  set  in  the  calculator.  The  second 
command  resets  the  Real  Time  Clock  and  sets  up 
unit  2  as  a  timer  to  be  used  later  in  the  program. 
The  operator  is  then  told  to  "Insert  Data  Tape". 


5:  In  this  line,  the  variables  for  the  probe 
start  time,  probe  type,  and  main  data  storage  for 
each  of  the  probe  types  are  dimensioned.  (See 
variable  cross-reference  for  explanations  as  to 
which  string  serves  what  purpose) .  The  first  for 
mat  statement  is  the  format  for  writing  to  the 
A/D  Converter,  the  second  format  is  a  4-character 
integer  field  for  writing  data  to  the  Dylon  tape. 

6:  Line  6  initializes  several  variables.  For  a 
full  listing  of  all  variables  and  their  uses  in 
the  program,  see  the  variable  cross-reference  and 
explanation  immediately  following  this  program 
documentation.  The  fdf  F  statement  finds  file  F, 
(F  is  the  file  counter  for  the  T7  probes  on  the 
cassette  tape)  which  is  set  to  0  at  this  point. 
This  will  save  time  later  when  the  first  T7  probe 
is  to  be  recorded. 

7:  In  line  7  the  on  err  condition  is  reset. 

This  must  be  done  periodically  throughout  the  pro 
gram  because  the  error  subroutine  "error"  can 
only  be  reached  if  the  on  err  condition  is  set, 
and  each  time  "error"  is  referenced  the  on  err 
condition  is  "unset".  So  it  is  reset  at  strate¬ 
gic  points  in  case  "error"  has  been  referenced. 
The  operator  is  then  told  to  "Press  CONTINUE  just 
before  probe  launch". 

8:  After  each  probe  (T7)  is  finished,  the  pro¬ 
gram  is  sent  back  to  line  7.  In  this  line,  which 
immediately  follows  line  7,  the  valid  data  point 
counter  (I)  is  reset  to  one  and  the  message  "Rea¬ 
dy  to  continue?"  is  displayed.  The  program  is 
then  stopped  to  await  a  CONTINUE  from  the  opera¬ 
tor  which  will  start  the  data  collection  proce¬ 
dure  . 

9:  Due  to  the  nature  of  the  A/D  Converter,  it 
must  be  reset  each  time  it  is  read  from  in  the 
one-conversion-only  mode  used  by  this  program. 
This  line  resets  the  A/D  to  the  channel  selected 
by  the  channel  selector  variable  T.  It  is  then 
reset  to  the  one-conversion-only  mode  and  it  is 
given  the  output  command  (J) .  (NOTE:  Because 
the  A/D  Converter  achieves  channel  selection 
through  bit  shifting,  T=4  for  ch.  3  and  T=8  for 
ch.4.  Channels  1  and  2  are  T=1  and  T=2) . 

10:  Line  10  reads  in  an  8-bit  byte  from  the  A/fl, 
shifts  the  memory  location  8  bits  to  the  left, 
reads  another  8-bit  byte,  and  stores  the  calcula¬ 
tor-combined  16-bit  word  into  the  variable  A. 


5:  din  T$C14]  > 
P$C93  »fl$  [48103  5 
E$C143  jF*C93 j 
G$  Cl 88803  5  f  nt 
t »  z  >  f  .  6  5  f  n  t  2? 
z »  f  4 . 8 

Si  HT5  20*J5  0*F; 

0*g;0-»k;  1100*0; 

fdf  F 

7 1  on  err  "error 
"jpr't  "Press 
CONTINUE" i "oust 
before" ? "probe 
launch" 5 spc  2 

8s  1M  «  beep 5  dsp 
"  R  e  a  d  y  t.  o  c  o  n  t  i 
Ci  u  e "  ?  beep?  s  t  p 
9s  urt  706.1? 

"  K " »  T  •  T  > "  f)  J " 

10s  i  o  r  ( s  h  f  (  r  d  b  ( 
706) ? -8) ?  rdb(70 
6  J  i  *  ft 
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11:  This  program  reads  in  values  from  the  A/D 
Converter,  which  has  a  maximum  and  minimum  count 
of  +  1024  counts.  The  program  only  considers  a 
data  value  valid,  however,  if  it  lies  within  the 
range  of  +  1000  counts.  Since  the  A/D  Converter 
is  set  up~for  an  output  of  +  10  volts,  each  count 
represents  10  millivolts.  Line  11  tests  the  . 
value  of  A  to  see  if  it  is  within  the  proper 
range.  If  A  fails  the  test,  the  program  is  sent 
down  to  the  subroutine  "invalid". 


11 :  if  abs  Cfi) > I© 
0  0 !  f  "invalid 

12:  if  1  =  11  s  t-  o 

“  t  i  rie  ” 

13:  ft  i  (ftWimi 
»  I t 1 3 ; urt  705.2 
ifi»wait  27 
14:  if  I >2400  + 
24001  for  1  =  1 
to  2O05 wrt  705. 
2' PI  next  Ilsto 
"finish" 

15:  1+2+ O+1 5  9to 

■4 

IS:  “invalid": if 
1  =  1 1  st.  o  9 


12:  Each  data  file  for  any  probe  starts  with  the 
probe  start  time  and  probe  type  and  then  contin¬ 
ues  with  all  data  for  that  probe.  If  1=1,  indi¬ 
cating  the  first  valid  data  point,  the  program  is 
sent  down  to  subroutine  "time"  to  record  the 
start  time  and  probe  type  in  memory  and  on  the 
Dylon  tape. 

13:  Line  13  is  reached  only  by  valid  data  points. 
This  line  stores  that  valid  data  point  into  the 
data  string  A$  in  integer  precision  format.  This 
format  uses  two  ASCII  characters  (2  bytes)  as 
opposed  to  normal  full  precision  storage  (8  bytes) 
This  same  data  value  is  then  stored  on  the  Dylon 
tape  in  the  format  described  in  line  2.  The  pro¬ 
gram  then  waits  for  27  milliseconds  to  achieve 
the  desired  20  sample  per  second  data  sampling 
rate. 

14:  Line  14  tests  to  see  if  all  data  points  have 
been  taken  for  the  given  probe  (I  greater  than 
4800) .  4800  is  expressed  as  2400+2400  to  slow 

the  program  down  less  than  one  millisecond  to 
achieve  a  much  greater  accuracy  to  the  desired 
sample  rate.  If  all  data  points  have  been  taken, 
the  program  is  sent  down  to  subroutine  "finish". 


15:  If  all  data  points  have  not  been  taken,  the 
valid  data  point  counter  (I)  is  incremented  by  2 
and  the  program  is  sent  back  up  to  line  9  to  read 
another  value.  The  +0  addition  is  another  timing 
factor  to  slow  the  program  down  to  the  desired 
sample  rate. 


16:  Line  16  is  the  first  line  of  the  subroutine 
"invalid".  A  launch  is  registered  by  the  compu¬ 
ter  only  when  the  first  valid  data  point  is  found. 
If  1=1,  indicating  that  the  first  valid  data  point 
has  not  yet  been  found,  the  program  is  sent  back 
up  to  line  9  to  read  in  another  data  value  and 
test  it  for  validity. 
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17:  C+l*C»fti 
(1100)*fl$CIi 1+ 
13  5  I +2*  Hurt 
705.2»6»if  C < 4 0 
;  9 1  o  9 

1 8 »  t-  r*  k  G  5  r  c  f  F  ? 
T$»  F"f  >  fll 5  f  df  F  + 
2  5  F  +  2*F  5  wrt 
704 »  "Y"  5  Y  + !  -> Y 5 
0*0 1  1*1 

19:  if  F>  1 9 5  if 
j  =  0  5  1  *  G  5  u  *  F  5 

9tO  21 

20:  if  F >  1 9 5  0  +  G5 ' 
0*F 5  0*K>  20*  J? 
bsspJprt  "Chan? 
e  Data  Tape"? 

"  I  pi  n  e  d  i  a  t  e  1  v !  !  " 
Sbee* 

21:  b  s  e  p  5 p r % 

"Bad  P rob* 'Mi 

b  ■?  i  P 


17:  Line  17  is  reached  only  if  an  invalid  data 
point  has  been  taken  after  probe  launch.  The  in¬ 
valid  data  point  counter  (C)  is  incremented  by  1 
and  a  value  of  1100  is  input  into  the  data  string 
to  show  up  later  in  the  data  analysis  as  an  inva¬ 
lid  point.  The  value  of  the  variable  Q  is  then 
output  to  the  Dylon  tape  (Q=1100)  for  the  same 
purpose.  If  less  than  40  invalid  data  points 
have  been  taken,  the  program  is  sent  back  to  line 
9  to  read  in  another  data  value.  The  program  is 
allowed  to  read  in  40  invalid  points  before  tell¬ 
ing  the  operator  that  a  probe  is  defective  be¬ 
cause  probes  are  likely  to  bounce  from  one  rail 
to  another  when  they  first  hit  the  water  before 
the  values  coming  from  the  probe's  thermistor 
become  valid. 

18:  If  the  invalid  data  point  counter  fails  the 
40  points  or  less  test  in  line  17,  all  data  taken 
from  the  probe  so  far  is  recorded  on  the  current 
file  in  the  current  track  since  it  is  known  by 
now  that  the  probe  is  defective.  Then  the  data 
cassette  is  positioned  to  the  next  file  to  be 
recorded.  (Raw  data  is  recorded  on  every  other 
file  on  the  data  cassette  and  will  be  converted 
to  temperature  values  later  and  stored  on  the 
files  in  between) .  The  file  counter  is  then  in¬ 
cremented,  a  file  mark  is  written  to  the  Dylon 
tape  to  end  the  current  Dylon  data  file,  the 
Dylon  file  counter  is  incremented,  and  both  the 
valid  and  invalid  data  point  counters  are  reset. 

19;  There  are  20  T7  probe  files  and  4  Til  probe 
files  on  each  track.  Piles  0,2, 4, etc.,  are  re¬ 
served  for  raw  data,  and  files  1,3, 5, etc.,  are  re¬ 
served  for  converted  data.  Line  19  tests  to  see 
if  the  end  of  a  track  has  been  reached.  If  the 
end  of  a  track  has  been  reached  and  the  tape  is 
on  track  0,  the  track  indicator  is  set  to  1  and 
the  file  counter  is  reset  to  0.  The  program  is 
then  sent  down  to  line  21. 

20:  If  the  end  of  a  track  has  been  reached  but 
the  finished  track  is  track  1,  the  program  prints 
the  message  "Change  Data  Tape  Immediately!!"  and 
continues  to  line  21. 

21:  Regardless  of  what  has  occurred  in  lines  19 
and  20,  line  21  prints  "Bad  Probe  T";  where  T  is 
the  channel  number  on  which  the  defective  probe 
was  being  sampled.  Since  only  channels  1  and  2 
are  being  used  to  sample  T7  probes,  it  is  not 
necessary  to  change  the  value  of  T  because  of  the 
bit  shifting  method  of  channel  selection  in  the 
A/D. 


22:  if  T=2iHTS 
3 1-  o  2  4 
23:  2*T 
24:  beep  j  p  r  t. 
"Launch  T7  on"? 
"Channel" j  T  5 
b  S  £  P  5  =•  P  C  2  5  9 1  O 
{ 

25:  “f  mish" :  t-  rk 
G?  ref  F  s  T$>  P$? 
r!  1 5  U  f  t.  7  0  4  j  "  Y  "  5 
Y  + 1  *♦  Y  5  f  d  f  F  +  2  5 
F  +  2*F5  0*Ci  HI 
26:  if  F  >  1 9  5  if 
G  =  O 5  HGJ  0  +  F5 
3 1  o  23 

27:  if  F >  1  9 5  0 -f G 5 
0  -*  F  5  O  ->  K  5  2  8  *  J  5 
bsepJprt  “Chang 
i  Dai. a  Tape"? 

“  I  i-i  5  d  lately!  1  " 
5  b  e  e  p 

23:  it  1  =  25  HT 5 
?  t.  o  2  O 
29:  2tT 
3D:  bespjprt 
"  L  o  u  n  c  h  T  7  o  n "  j 
"Channel" » T? 
b  e  e  p  5  s  p  c  2  5  g  t  o 

i 

31:  "i  ii'ie  “ :  wrt 
9  j  “  R "  5  "  r  a  w  T  7 
"  P  '?■ 

32:  red  9 »  T 1 5 

p  r  t  T  I-  5  o  n  e  r  r 

"  e  r  r  o  r  “  J  c  n  d  7  > 

" ? "  5  i.t r t  704  j 

“B 14111"  Send  7» 

«■  ■  .  •• 


22:  and  23:  Lines  22  and  23  change  the  value  of 
T  on  which  the  defective  probe  was  being  sampled 
to  the  other  channel  so  that  a  new  or  back-up 
probe  may  be  launched  immediately  without  having 
to  wait  to  reload  the  old  channel  with  another 
probe . 

24:  Line  24  prints  the  message  "Launch  T7  on 
Channel  T"  where  T  is  now  the  new  channel  number 
selected  in  lines  22  and  23.  The  program  is  now 
sent  back  to  line  7  to  ask  the  operator  if  he  i^[( 
ready  to  continue  with  the  next  probe.  : 

25:  Line  25  is  the  first  line  of  the  subroutine 
"finish"  and  is  reached  when  all  4800  data  points 
have  been  taken  from  a  T7  probe.  This  line  re¬ 
cords  the  data  on  cassette  on  the  proper  file  and 
track,  ends  the  Dylon  data  file  with  a  file  mark, 
increments  the  Dylon  file  counter,  the  data  cas¬ 
sette  is  positioned  to  the  next  blank  data  file, 
the  cassette  file  counter  is  incremented,  and 
both  valid  and  invalid  data  point  counters  are 
reset. 

26:  and  27:  Lines  26  and  27  perform  the  same 
functions  as  lines  19  and  20. 

28:  thru  30:  These  lines  are  identical  to  lines 
22  through  24. 

31:  Lins  31  is  the  first  line  of  the  subroutine 
"time"  which  is  reached  just  before  the  first 
valid  data  point  of  a  probe  (indicating  probe 
launch)  has  been  reached.  The  two  commands  in 
this  line  recover  the  current  month,  date,  and 
time  from  the  real  time  clock  and  input  the  strinc 
rawT7  into  the  T7  probe  type  variable  P$.  The 
raw  is  tacked  onto  the  first  of  the  probe  type  to 
.\ndicate  to  persons  analyzing  the  data  that  this 
is  raw  data  and  has  not  been  converted  into  tem¬ 
perature  units  yet. 

IT.;  Line  32  inputs  the  month,  date,  and  start 
time  read  from  the  real  time  clock  into  the  start 
time  string  (T$)  in  the  form  of  MO:DA:HR:MN:SC. 
Then  the  start  time  is  printed.  This  is  to  show 
the  operator  that  the  probe  now  in  the  water  has 
found  at  least  one  valid  data  point.  If  the  oper¬ 
ator  commands  a  probe  launch  and  does  not  see  the 
start  time  printed  within  2  seconds  after  the 
probe  hits  the  water,  then  he  knows  the  probe  is 
defective  and  can  signal  the  program  to  that  ef¬ 
fect.  (cont.  on  next  page) 


32: 


(cont . ) 
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33 J  wrt  705jT$> 
wrt  704?  "B9N1 "  5 
end  7 » 5  wrt 
70SjPt?wrt  704 > 
" B1000U32000" 

34:  end  7>  "7. "5 
3  t  0  1  3 

35:  "defect": if 
T  =  2 5 HT5sto  37 

3  6  •  2  *  T 

37:  beepjprt 
"  Launch  T7  n "  > 
"Channel" » T  5 
beep 

38:  HI? 0*C>  sto 

■p 

33:  dirt  T$[143t 
P$  C9D  jfl$t4S10]  5 
E$C14]  ,Ft  191  > 

G$ Cl O800] 5  f rtt 

1  J  2  >  f  .0 

4  0 :  b  e  e  p  j  p  r  t 
"Launch  Til 
on" ? "Channel 
3" j "whs never 
read  "  5  s  p  c  25 
f  n  t  2 »  2  >  f  4 . 0 


32:  The  on  error  condition  is  reset.  Then,  the 
bus  is  given  the  unlisten  command,  a  block  size 
of  14  characters  is  set  up  in  the  Dylon  Tape  For¬ 
matter,  the  Dylon  is  told  that  it  will  write  one 
block  of  this  size,  and  the  data  listen  command 
is  output  on  the  bus. 

33:  In  line  33,  the  start  time  of  the  probe  is 
written  out  to  the  Dylon  tape  to  start  the  data 
file.  Then  a  block  size  of  6  characters  is  set 
up  and  the  probe  type  stored  in  line  31  is  writ¬ 
ten  into  this  block.  The  Dylon  is  then  set  up 
for  a  block  size  of  1 000  characters  and  set  up 
to  write  as  many  as  32000  blocks. 

34:  Line  34  puts  the  Dylon  into  the  data  listen 
mode  and  sends  the  program  back  to  line  13  to 
store  that  first  valid  data  point  which  sent  the 
program  down  to  this  subroutine  in  the  first 
place . 

35:  thru  37:  It  was  mentioned  that  the  operator 
had  to  tell  the  program  if  a  probe  was  launched 
and  never  received  valid  data  (indicated  by  the 
absence  of  a  printed  start  time  for  that  probe) . 
These  are  the  first  three  lines  of  subroutine 
"defect",  which  reached  only  by  the  operator 
pressing  the  STO?  key  and  special  function  key 
f4.  These  lines  perform  the  same  functions  that 
lines  22  through  24  performed. 

38:  Line  38  resets  both  valid  and  invalid  data 
point  counters  and',  sends  the  program  back  up  to 
line  7  to  ask  the  operator  if  he  is  ready  to  look 
at  the  next  probe  on  a  different  channel. 

39:  Line  39  is  reached  only  when  an  error  in 
string  dimensioning  -.ccurs.  The  operator  is  told 
to  press  a  special  function  key  to  reach  this 
line.  This  will  be  explained  further  during  the 
documentation  of  the  subroutine  "error". 

40:  Line  40  is  also  reached  only  through  a  spe¬ 
cial  function  key,  f3,  which  may  be  pressed  any 
time  that  a  T7  probe  has  just  finished  and  the 
"Ready  to  continue?"  message  is  apparent  on  the 
display  screen.  It  informs  the  operator  that  he 
may  launch  a  Til  probe  on  channel  3  whenever 
ready.  The  format  statement  merely  restates  the 
format  used  for  writing  data  onto  the  Dylon  tape. 
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41 :  on  err  "erro 
r"5prt  "Press 
Cont-  i  nue"  j  "Just, 
before" > "probe 
1  o.unch "  5  spc  2 
42:  if  T -0 5  HT 
42*  b  e  e  p  5  d  s  p 
"Ready  to  cont- i 
n ue?"  5  b e e p  5  s t-  p 
44:  1->B5  4^L5  269-> 
D*0*HiO-H1?Q»C? 
1+151 160+QS if 
J  =  Gi?  £  0  *  J 

45:  wrt  ?06. 1 > 

‘ H " >  T  *  T  > "flJ" 5 
wait  4 

46!  iorlshfirdbl 
786) - 8 ) »  rdb(?0 
6)  )  +  fl»  2fO»V 
47:  if  T<SiT»E; 

?  t  0  5  4 

48:  if  abs itf ) <10 
005? to  50 
48:  if  H  =  0 5  •? 1 0 
" i nua i i dv " 


41:  Line  41  resets  an  on  err  condition  in  the 
calculator  and  then  duplicates  the  message  print¬ 
ed  by  line  7. 

42:  At  this  point  in  the  program,  T  should  have 
a  value  of  either  1  or  2;  but  just  in  case,  this 
line  sets  it  equal  to  1  if  it  is  equal  to  zero; 

43:  Line  43  displays  the  "Ready  to  continue?" 
message  and  stops  the  program  awaiting  a  CONTINUE 
from  the  operator.  At  this  point  in  the  program, 
the  operator  should  launch  a  T7  and  a  Til  probe 
at  nearly  the  same  time.  He  may,  however,  only 
launch  one  or  the  other. 

44:  Line  44  initializes  all  variables  and  resets 
the  Til  probe  file  counter  for  the  cassette  to 
its  initial  value  of  20  if  for  some  reason  it  is 
equal  to  0.  See  the  variable  cross  reference  at 
the  end  of  this  program  documentation  for  details. 

45:  and  46:  These  lines  perform  the  same  func¬ 
tions  as  lines  9  and  10.  The  wait  4  and  2  0-V 
are  timing  factors  and  have  no  other  use  in  the 
program. 

47:  Sampling  in  this  program  mode  is  achieved  by 
alternating  between  the  T7  and  Til  channels.  A 
sample  rate  of  20  samples  per  second  per  probe  is 
maintained  throughout  and  made  more  precise  due 
tc  various  timing  factors  thrown  in  throughout 
the  program  to  slow  it  down  to  the  precise  speed 
needed  to  guarantee  that  sample  rate  to  an  accept¬ 
able  degree  of  accuracy.  This  line  sends  the 
program  down  to  line  54  if  T  is  less  than  3  (in¬ 
dicating  to  the  program  that  the  current  probe 
channel  contains  a  T7  probe) .  The  value  of  T 
(either  1  or  2)  is  stored  in  the  variable  E  for 
later  use  before  the  program  is  sent  to  line  54. 

48:  If  the  probe  in  question  is  on  channel  3  or 
4,  the  program  continues  on  to  line  48,  where  the 
data  point  in  question  is  tested  for  validity. 

49:  If  the  data  point  in  question  failed  the  va¬ 
lidity  test  in  line  48,  and  if  the  Til  probe  in 
question  is  not  finished  recording  all  data  (M=0) , 
the  program  is  sent  down  to  "invalidy".  If  a  Til 
probe  finished  during  a  T7  probe  drop,  it  is  in¬ 
dicated  to  the  program  that  the  Til  probe  has  fin¬ 
ished  through  the  variable  M,  but  the  Til  data 
is  not  recorded  until  the  T7  finishes  to  avoid 
data  gaps  in  the  T7  probe. 
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50:  Line  50  performs  for  a  Til  probe  the  same 
function  performed  by  line  12. 


50:  if  B~1 5 *to 
"t  ii'ieb" 

51*  if  B > 4 0 D 5 
0T0->M  5  2^M  5  0->H  ? 
E*T?wait  15  •no 
45 

52:  ft i  (fi)*G*C6 
j  B  +  13 

53:  b+2->b; e->t; 

54:'’  if\tbs(fl)  <10 
0O j  ?t  o  56 

55:  st- o  "invalid 
x" 

56:  if  1=1 5 g to 
"t inea" 

5?:  ft i 

»  I  +  1 3  5 wrt  705.2 
jfl 

53:  I  +  2  *  1 5 1.  •>  T 

59:  if  I >48805 
gto  " finish!" 


51:  Line  51  tests  to  see  if  a  full  5380  data 
points  have  been  taken  by  a  Til  probe.  If  they 
have  been  taken,  the  value  of  2  is  input  into  the 
variable  M  to  indicate  to  the  program  from  that 
point  on  that  the  Til  probe  has  finished.  The 
invalid  data  point  counter  for  the  Til  probes  is 
reset  to  0  (H) .  The  stored  value  of  E,  represent 
ing  the  number  of  the  channel  on  which  the  cur¬ 
rent  T7  probe  is  being  sampled,  is  input  into  T. 
The  program  is  then  sent  back  to  line  45  to  read 
another  value  from  the  T7  probe.  The  following: 
40D  rather  than  10760;  0  0-M;  and  wait  1  are  tim¬ 
ing  factors.  It  will  be  noted  that  the  value  of 
B  has  not  been  reset  and  is  still  greater  than 
40D.  This  is  to  prevent  more  data  from  being 
taken  from  the  Tl.1  probe. 

52:  If  all  data  has  not  yet  been  taken  from  the 
Til  probe,  line  52  stores  the  valid  data  point 
into  the  Til  memory  string.  These  data  values 
will  be  later  dumped  onto  cassette  and  Dylon. 

53:  In  this  line,  the  valid  data  point  counter 
for  the  Til  probes  (B)  is  incremented,  the  value 
of  E  (T7  probe  channel  number)  is  input  into  the 
channel  selector  variable  T,  and  the  program  is 
sent  back  up  to  line  45  to  read  in  another  value 
from  the  T7  probe  channel. 

54:  through  56:  These  lines  perform  for  the  T7 
probe  the  same  functions  performed  by  lines  48 
through  50  for  the  Til  probe. 

57:  If  the  data  point  in  question  has  passed  all 
tests  so  far,  it  is  recorded  in  memory  and  onto 
the  Dylon  tape  by  line  57. 


58:  In  line  58,  the  T7  valid  data  point  counter 
(I)  is  incremented  and  the  value  of  L  is  input 
into  T.  L  stores  the  number  of  the  selector  for 
the  channel  of  the  Til  probe.  It  is  normally  4 
for  channel  3  unless  a  Til  probe  becomes  defec¬ 
tive,  in  which  case  channel  4  is  used  as  a  backup 
and  L=8  for  channel  4. 


59:  Line  59  sends  the  program  down  to  "finishl" 
if  a  full  2400  data  points  have  been  taken  for  the 
T7  probe.  The  timing  factors  used  in  line  51  are 
not  necessary  due  to  the  extra  time  used  to  write 
the  valid  data  point  to  the  Dylon  tape. 


60s  sto  45 
61:  "invalid*”:  i 
f  1  =  15 L*T  5  wait 
7  5  •no  45 
62:  C  +  HC5ft.i 
lU00)+fi$CI»  1  + 
1] 5 I+2+IS wrt 
7  O  5 . 2  >  Q  5  if  C  <4C 
5.L*J5?to  45 
63:  if  M  =  0 5  if 
S#l»wrt  9 5 "U2C j 
1.1 2  G" 

64:  t-rk  Gircf  F> 
T$>  F‘ -f '  Hf  5  f  df  F  + 
2  5  F  +  2  *  F  5  w  r  t 
704  >  "V'J  V  +  UV  5 
0*C5  1  •>  I 

65:  if  E=152*E5 
?  t  o  67 
6  6 :  1  *  F 

67:  if  M=25trk 
l''  5  ref  J  j  E i  >  F $  • 

G  +  5  c  r)  d  7 .«  "  ? "  J 
vr<  704 >  "SI 4111  “ 
5  c  !•>  d  7  j  "  -4 " 


60:  Line  60  sends  the  program  back  to  line  45  to 
read  in  another  value  from  the  Til  probe. 

61:  Line  61  is  the  first  line  of  subroutine  "in- 
validx"?  the  invalid  subroutine  for  the  T7  probes. 
As  in  line  16,  if  1=1  (indicating  to  the  program 
that  the  T7  probe  has  not  yet  been  launched) ,  the 
program  is  sent  back  to  line  45  to  read  in  anoth¬ 
er  value.  The  difference  in  this  case  is  that 
the  value  of  the  Til  probe  channel  (L)  is  input 
into  the  channel  selector  (T)  and  the  program  is 
paused  for  7  milliseconds  as  a  timing  factor 
before  going  to  line  45. 

62:  Line  62  performs  the  same  functions  that 
line  17  performed  with  the  addition  that  the  chan¬ 
nel  selector  (T)  is  changed  to  the  Til  channel 
value  of  L. 

63:  If  the  program  reaches  line  63,  that  signi¬ 
fies  that  the  current  T7  probe  has  been  found  to 
be  defective.  If  the  current  Til  probe  is  still 
•ampling  (M=0) ,  and  if  it  has  been  launched  (B 
not  equal  to  1) ,  then  the  timer  set  up  in  line  4 
is  cleared  and  started.  This  timer  will  time  to 
the  nearest  millisecond  the  gap  created  in  the 
Til  probe  while  the  partial  data  from  the  T7  de¬ 
fective  probe  is  being  recorded.  This  time  will 
be  used  later  to  calculate  the  number  of  data 
points  lost  by  the  Til  probe  and  to  show  that  gap 
as  invalid  data. 

64:  Line  64  is  identical  to  line  18. 

65:  and  66:  Lines  65  and  66  perform  the  same 
functions  that  lines  22  and  23  performed.  The 
value  of  E  is  changed  rather  than  the  value  of  T 
because  the  program  is  about  to  input  the  value 
of  L  into  T,  so  it  is  useless  to  use  T  to  change 
the  number  of  the  T7  channel. 

67:  Line  67  is  executed  only  if  the  Til  probe  is 
finished.  It  records  all  Til  data  (start  time, 
etc.)  onto  cassette  in  the  proper  file  on  the 
proper  track.  Then  the  Dylon  is  unlistened,  a 
block  size  of  14  characters  (for  the  start  time) 
is  set  up,  and  the  Dylon  is  put  into  the  data 
listen  mode  in  preparation  for  recording  of  the 
Til  probe  data  onto  the  Dylon  tape. 
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68:  Line  68  is  only  executed  if  M=2  (Til  probe) 
has  finished.  The  start  time  is  written  to  the 
Dylon  unit,  a  6-character  block  is  set  up  for  the 
probe  type,  the  probe  type  is  written  to  the  Dy¬ 
lon  tape,  and  the  data  block  of  1000  characters 
is  set  up  in  preparation  for  dumping  the  Til  raw 
data  onto  the  Dylon  tape. 

69:  Again,  if  the  Til  probe  has  finished,  this 
line  retrieves  each  data  value  from  memory  string 
G$  and  writes  it  to  the  Dylon  using  format  2. 

70:  If  M=2;  a  file  mark  is  written  to  the  Dylon 
tape  to  end  the  current  data  file,  the  Dylon  file 
counter  variable  (Y)  is  incremented  to  show  that 
another  file  has  been  fully  recorded,  the  tape  is 
positioned  back  to  the  next  T7  file  to  save  re¬ 
cording  time  later,  and  the  Til  cassette  file 
counter  is  incremented. 

71:  and  71:  These  lines  perform  the  same  func- 
as  lines  19  and  20. 

73:  and  74:  Since  the  Til  cassette  file  counter 
ha*  just  been  incremented,  the  cassette  must  also 
be  checked  to  see  if  the  Til  files  on  the  current 
Til  track  are  at  an  end.  These  lines  perform  the 
same  functions  that  lines  19  and  20  perform  for 
T7  probes. 

75:  Line  75  prints  the  "Bad  Probe"  message. 

76:  I'ne  76  is  executed  only  if  M=2,  meaning 
that  the  current:  Til  probe  '  ",  finished  and  there¬ 
fore  that  all  dat-  from  that  Til  probe  has  been 
recorded  on  cassette  and  Dylon.  It  inputs  the 
value  of  the  T7  channel  (E)  which  was  selected  in 
lines  65  and  66  into  the  channel  selector  vari¬ 
able  t.T) .  Than,  the  message  **T7  PROBES  ONLY*" 
is  printed  since  the  program  is  about  to  be  sent 
back  to  the  T7  only  mode  of  the  program. 

77:  Regardless  of  whether  the  Til  probe  is  fin¬ 
ished  or  not,  another  T7  probe  needs  to  be 
launched  on  the  channel  designated  by  the  variable 
E.  The  "Launch  T7  on  Channel  £",  where  E  is  1  or 
2,  is  printed. 

78:  If  th-  Til  probe  is  finished  (M=2) ,  the  pro¬ 
gram  is  sent  back  up  to  display  the  "Ready  to 
continue?"  message  in  the  T7  probe  only  mode  -.hat 
start*  with  line  7. 
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79:  Line  79  is  reached  only  if  the  current  Til 
probe  is  not  yet  finished.  If  it  has  been 
launched  (B  not  equal  to  D  then  the  timer  that 
was  started  in  line  63  is  stopped  and  the  time 
placed  into  an  output  port  in  the  clock  waiting 
to  be  read.  The  time  is  read  into  the  variable  N. 
Then,  N/l 000  converts  the  time  to  seconds  fr' 
its  current  value  of  milliseconds.  This  n 
value  is  multiplied  by  the  sample  rate  of  20 
samples  per  second  to  get  a  number  which  repre¬ 
sents  the  number  of  samples  which  would  normally 
have  been  taken  by  the  Til  probe  during  this  time 
lag.  This  value  is  converted  to  an  integer  and 
stored  in  the  variable  0.  Then  B  (Til  valid  data 
point  counter  used  also  to  position  data  values 
in  the  memory  string) ,  2*0  (because  of  integer 
precision) ,  and  4  are  added  together  and  stored 
in  the  variable  V.  This  number  represents  the 
current  position  of  the  memory  string  plus  the 
number  of  points  which  were  lost  during  T7  re¬ 
cording  plus  another  4  data  points  to  account  for 
the  time  that  it  will  take  to  record  data  into 
this  data  gap.  Then  the  value  of  L  is  input  into 
the  channel  selector  (T) . 

80:  Again,  if  the  current  Til  probe  is  not  yet 
finished,  this  line  is  executed.  Into  each  mem¬ 
ory  location  between  B,  the  current  location, 
and  V,  the  location  at  the  end  of  the  gap,  the 
value  of  1100  is  written  into  memory.  This  value 
will  be  recognized  later  as  invalid  data. 


81:  Line  81  is  executed  if  the  Til  probe  has 
been  launched.  (Not  yet  finished).  It  inputs 
the  value  of  V  into  B  which  will  prepare  for 
storage  of  a  data  value  the  next  memory  location 
after  th  '  gap  created  by  the  T7  recording.  The 
program  is  then  sent  back  up  to  line  45  to  read 
in  another  data  point  from  the  Til  probe. 

82:  If  the  probe  is  not  yet  finished  and  has  not 

been  launched,  either;  the  value  of  L  is  input 
into  T  and  the  program  is  sent  back  to  look  at 
another  data  value  from  the  Til  probe  and  test  it 
for  validity. 
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83:  Line  83  is  identical  to  line  61  in  function, 
except  that  line  83  is  used  for  Til  probes  and 
the  timing  factors  are  different. 

84:  Line  84  is  identical  to  line  62  in  function, 
except  that  line  84  is  used  for  Til  probes  and 
those  Til  probes  are  allowed  60  invalid  data 
points  before  being  declared  defective  due  to 
their  longer  fall  time  and  conseauently  larqer 
number  of  data  points  total. 

85:  Line  85  starts  the  timer  if  a  T7  probe  has 
been  launched.  Unlike  the  subroutine  "invalidx", 
there  is  no  need  to  test  the  T7  probe  to  see  if 
it  is  finished  or  not  because  all  T7  probes  are 
sent  immediately  down  to  a  subroutine  called 
"finishl"  after  they  finish. 

86:  Line  86  records  all  Til  data  taken  before 
the  probe  was  registered  as  defective  into  the 
proper  file  on  the  proper  track  on  the  cassette. 
The  Til  file  counter  is  then  incremented,  the 
valid  and  invalid  data  point  counters  for. the  Til 
probes  are  reset,  and  M  is  reset  to  0  to  indicate 
to  the  program  that  this  Til  probe  is  not  finished 
yet.  (This  is  merely  a  safety  measure;  M  should 
already  be  equal  to  zero.) 

87:  and  88:  Lines  87  and  88  are  identical  to 
lines  73  and  74. 

89:  and  90:  Lines  89  and  90  decide  whether  T=4 
or  T=8.  If  T=4  (Channel  3)  then  the  value  of  3 
is  input  into  the  variable  S.  If  T=8  (Channel  4) 
then  the  value  of  4  is  input  into  the  variable  S. 

91:  Line  91  prints  the  message  "Bad  Probe  S", 
where  S  was  defined  in  lines  89  and  90  and  repre¬ 
sents  the  number  of  the  channel  on  which  the  now- 
defective  Til  probe  was  being  sampled. 

92:  and  93:  Lines  92  and  93  take  the  value  of  S 
(the  current  Til  probe  channel  on  which  the  Til 
probe  was  just  discovered  to  be  defective)  and 
switches  the  value  of  L  to  the  other  channel. 
Therefore,  if  S=3,  4  is  input  into  L;  if  S=4,  8 
is  input  into  I..  Also,  the  value  of  S  is  changed 
to  the  other  channel.  Thus,  if  S  was  3,  it  is 
changed  to  4;  and  vice  versa.  These  two  values 
will  be  used  later  in  the  program. 


13 


94:  beep-jprt 
"Launch  Til 
on")  "Channel" » 

S 5  beep S spc  2 
95:  if  I#1 5  wrt 
9) "U2V"? red  9) 
N5 in*  (N/1080* 
26)  ->0  5  1+20+1 9 * V 
5E  +  T 

96:  if  I#1 ; f or 
11  =  1  to  V  by  2  5 
ft  i  (1100)*fl$CW 
)  1*1+13  5  wrt.  705.2 
jQJnext.  1J 
97:  if  I#15V+I5 
<g  t-  o  45 

98:  E+TSsto  45 
99:  "f  irtishl " :  if 
M=0  5  if  B#1 5 
wrt  9  j " U2C  j  U2G “ 
5  f  o  r  1  =  1  t-  o 
200  5  w r t  705.2? 

P  5  n  e  y.  t-  I 
100:  t  r k  0  5  ref 
Fj  T$) P$) fi$5 w r t 
704) "Y" 5 Y+l+Y) 
fdf  F+25F+2+F5 
1  +  1  5  0  •>  C 

101 :  if  11  =  25 1  r  k 
1'  5  ref  J »  Ef )  FI ) 

Of*  e  i*i  d  7 )  ?  “  5 

wrt  704) " B 1 4 M 1 ” 

5  e  i*i  d  7  >  "  X  “ 

102:  if  M=2  5  wrt 
705*E'f-5wrt  704) 
"89111";  wrt  705) 
Ff5 wrt  704) " B 1 0 
OO1122000" 

103:  if  11  =  25  for 
1=1  to  10759 
by  25 itf (G$CI) 

I  + 1  ]  )  4  fi  5  w  r  t- 
705. 2) fl 5  next  I 
104:  if  M=2  5  for 
1  =  1  to  209  5  w r t 
7  y  5 . 2 )  P  5  n  e  x  t  15 
wrt  704) “ V " 5  Y  + 

1 4 V 5  f  d f  F5J+2+J 
105-:  if  F >  1 9 5  it 
0  =  05  1  -t  G  5  0 1 F  5 
3 1  o  107 


94s  Line  94  informs  the  operator  via  the  calcu¬ 
lator’s  internal  printer  that  he  may  "Launch  Til 
on  Channel  S",  where  S  is  either  3  or  4. 

95;  thru  98:  Lines  95  through  98  are  used  to  re¬ 
cord  invalid  data  in  the  gap  created  by  record¬ 
ing  of  Til  partial  data.  They  are  practically 
identical  to  lines  79  through  82,  except  that  in 
line  96, the  value  of  1100  is  written  to  the  mem¬ 
ory  locations  and  Q  is  written  to  the  Dylon  tape, 
3ince  T7  probes  write  each  value  to  the  Dylon 
tape  as  it  is  taken.  (Q  is  equal  to  1100). 

99:  Line  99  is  reached  only  if  a  T7  probe  has 
finished.  It  is  identical  to  line  63. 

100:  Line  100  records  all  T7  data  onto  cassette. 
Then  a  file  mark  is  written  onto  the  Dylon  tape 
to  mark  the  end  of  that  data  file,  the  Dylon  file 
counter  is  incremented,  the  cassette  is  posi¬ 
tioned  to  the  next  file  to  be  recorded,  the  T7 
cassette  file  counter  is  incremented,  and  both 
the  valid  and  invalid  data  point  counters  for  the 
T7  probes  are  reset. 

101:  thru  108:  These  lines  are  identical  to 
lines  67  through  74. 

109:  and  110:  These  two  lines  are  identical  to 
lines  65  and  66. 

Ill:  thru  117:  These  lines  are  identical  to 
lines  76  through  82. 

118:  thru  121:  This  is  the  subroutine  "timea" 
which  records  the  time  and  prone  type  for  the  T7 
probes  in  the  T7/T11  half  of  the  program.  It  is 
identical  in  content  to  subroutine  "time"  in 
lines  31  through  34. 

122:  thru  124:  Lines  122  through  124  comprise  the 
subroutine  "timeb" .  This  subroutine  is  basically 
the  same  as  subroutine  "time"  and  subroutine 
"tiine-a",  except  that  the  start  time  and  probe  type 
are  not  yet  written  out  to  the  Dylon  unit.  The 
start  time  is  read  from  the  clock  and  stored  in 
E$,  the  probe  type  "rawTll"  is  stored  in  F$,  the 
Gn  err  condition  is  reset  once  again,  and  the 
block  size  for  writing  data  onto  the  Dylon  tape 
is  set  up.  Then  the  Dylon  is  put  into  data  lis¬ 
ten  mode  and  the  program  is  sent  back  up  to  line 
51  to  record  the  first  valid  data  point  from  the 
Til  probe  which  sent  the  program  down  to  this 
subroutine  originally. 
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125:  This  is  the  first  line  of  the  subroutine 
"def ectb" .  This  defective  probe  subroutine 
is  for  the  T7/T11  half  of  the  program  and  is 
very  similar  to  subroutine  "defect"  except  that 
it  is  more  complex  in  that  it  must  determine 
which  of  the  two  probes  being  sampled  is  defective 
and  act  accordingly.  This  subroutine  is  also 
reached  only  through  the  keyboard  via  the  special 
function  keys  fl2  and  f5.  This  first  line  clears 
all  flags  in  the  calculator  and  if  1=1  (indica¬ 
ting  that  the  defective  probe  is  the  T7  probe) 
the  program  is  sent  down  to  line  136. 

126:  and  127:  These  two  lines  are  executed  only 
if  the  Til  probe  in  question  at  the  moment  is  not 
finished  and  has  not  yet  registered  a  launch. 

They  input  the  number  (not  the  selector)  of  the 
current  Til  channel  into  the  variable  S. 

128:  Again,  this  line  is  executed  only  if  the 
Til  probe  has  not  finished  and  has  not  registered 
a  launch  yet.  It  prints  the  "Bad  Probe  S"  mes¬ 
sage  and  sets  flag  2  (when  a  flag  is  set  its 
value  is  one,  when  it  is  not  set  its  value  is  0) . 

129:  and  130:  These  two  lines  change  the  channel 
number  (S)  to  the  other  Til  channel  and  change 
the  channel  selector  storage  variable  (L)  to  the 
selection  number  for  the  other  Til  channel. 

131:  Line  131  tells  the  operator  to  "Launch  Til 
on  Channel  S",  where  S  has  been  changed  to  the 
new  channel  number  in  lines  129  and  130. 

132:  thru  134:  These  lines  are  identical  to 
lines  95  through  97,  except  that  they  include  the 
stipulation  that  flag  2  must  be  set  before  they 
can  be  executed.  Flag  2  is  set  only  if  line  128 
has  been  executed,  which  indicates  that  the  defec¬ 
tive  probe  is  a  Til. 

135:  If  the  program  was  not  sent  down  to  line 
136  during  the  execution  of  line  125  (indicating 
that  the  defective  probe  was  not  the  T7)  and  if 
flag  2  is  not  set  (indicating  that  the  defective 
probe  was  not  the  Til  either) ,  then  this  line  is 
executed  which  prints  the  message  "Program  error; 
Both  probes  look  valid."  and  the  program  is 
stopped  to  await  operator  analysis  of  the  problem. 
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B  =  1 »  4  ■*  S 

128:  it  : t  =  0 5  if 
B  =  1  >  b  e  e  p  :  p  r  t 
"  D  o.  d  P  r  o  b  e "  >  S  5 
b  z  r.  1  •  t  ?  2 

129:  it  M  =  0 5  if 
B  =  1 5  it  :  =  3  *  4 AS  5 
8  L  >  ?  t  o  131 

130:  it  n=0> if 

B=  1 5  3  •*  3 1  4  *  L 

1 31 :  if  f  1  =  O 5  if 
E'=l*prt  “Launch 
Til  on  ’  ?  “Charm 
S  1"  i  ‘j  1  1  r-‘  C  2 

132:  if  IfclJif 
t  1  3 2  5  r t  9<  "U2V 
“Seed  9«N«int(N 
.  "  1 0  0  0  -  2  0  .•  4  0  ?  I  + 

2  0  M  -  7  j  E  *  T 

13  3:  it  I  ?f  1 J  if 
t  1  3  2  ?  f  c  r  11=  I 

r  o  7  b  ■  2 !  f  1 1 
i  1 1  oo  i  -Hi-  cu  ?  u+ 

1  ]  i  ■  j  ;■  t  705. 2 »  Q » 
ne  .t  11 

134:  it  I  f?  1  1  i  t 
T i 5  2 : " -  1 : 3 1  o  45 


136:  Line  136  is  reached  only  if  the  program  has 
decided  that  the  defective  probe  is  the  T7  probe. 
It  prints  the  "Bad  Probe  E"  message. 

137:  and  138:  These  two  lines  are  duplicates  of 
lines  65  and  66. 

139:  This  line  is  identical  to  line  113  in  func¬ 
tion. 

140:  thru  142:  These  lines  are  identical  to 
lines  115  through  117,  with  the  additional  stipu¬ 
lation  that  M=0  before  any  of  the  lines  may  be 
executed.  If  M  is  not  equal  to  0,  then  the  Til 
probe  is  finished  and  there  is  no  data  gap  to 
account  for  at  this  time.  ‘  So,  the  program  would 
■  continue  down  to  line  143. 

143:  This  is  the  last  line  of  the  subroutine 
"defectb"  and  it  sends  the  program  back  up  to 
line  45  to  read  in  a  value  from  the  new  T7  chan- 
|  nel.  This  line  is  reached  only  if  the  T7  probe 
was  defective  and  the  Til  probe  was  already  fin¬ 
ished. 

144:  Line  144  is  the  first  line  of  the  subrou¬ 
tine  called  "error".  If  the  on-err  condition  is 
set  in  the  calculator  and  an  error  occurs,  the 
program  bounces  down  to  this  subroutine.  The 
decimal  value  of  the  ROM  letter  in  which  the 
error  occurred  is  input  into  the  variable  rom. 

The  number  of  the  error  is  input  into  the  vari¬ 
able  ern  .  The  number  of  the  program  line  in 
which  the  error  occurred  is  input  into  the  vari¬ 
able  erl  .  Thus,  an  error  E4  might  occur  in 
line  9  If  the  A/D  Converter  did  not  respond  to 
the  reset  command  in  line  9  within  the  required 
2  second  time  limit  set  in  line  3.  This  error  E4 
in  line  3  would  be  stored  as:  rom=69  (the  deci¬ 
mal  value  of  the  ASCII  character  E) ,  ern=4,  erl=3. 
i  An  error  in  the  mainframe  sets  rom=0.  A  main¬ 
frame  error  is  one  which  involves  no  particular 
ROM.  In  this  line,  P  is  reset  to  0  and  will  be 
used  later  in  the  error  subroutine. 

I  145:  thru  148:  If  an  error  E4,  G8,  G4,  or  G9  has 
occurred  in  any  program  line,  these  lines  send  the 
program  down  to  line  165.  All  these  errors  have 
in  common  an  indication  that  one  or  more  of  the 
peripherals  or  that  the  HP-IB  itself  is  down. 
Sending  the  program  down  to  line  165  will  start 
the  program  checking  to  see  which  line  stopped 
the  program  with  an  error,  and  therefore  which 
peripheral  is  down. 
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135:  if  f  1  •? 2  =  0 5 
prt  "Pro 9 raw 
e  r  r  o  r  5  "  >  "  B  o  t  h 
p  r o b  e s “ ? “look 
v  a  lid."?  s  p  o  25 

st  P 


!  36  s 

b  e  e  p  5  p  r  t. 

"Bad 

P  r  o  b  e "  j  E  5 

beep 

137: 

if  E  = ! 5 2+E5 

<3t.  o 

139 

138: 

HE 

13'?: 

prt  "Launch 

T7 

on" j "Channe 

1 "  j  E 

5  s pc  2 

140: 

if  M  —  0 5  i f 

BUI  5 

wrt  9j "U2V" 

5  red 

9  >  N  5  int.  (N/ 

1  000 

*20) +05  B  + 

20+1 

0 -  V  5 L  +  T 

141: 

II 

B#  1 5 

i  o r  14 = B  to 

V  by 

25ft  i  (110 

0 )  *  G 

I  CM ?  14+13  5 

next 

U 

142: 

if  M — 0 5  i f 

Bttl$ 

V •* B  5  s t  o  45 

143: 

E^TJsto  45 

144: 

"error" :0+P 

145: 

if  rofl-69 

and 

e  r  n  =  4  5  s  t-  o 

1 65 

146: 

if  rofl=?l 

a  n  d 

e  r  n  -  8  5  s  t  o 

165 

14?: 

if  rofl=?l 

and 

e  r  n  =  4  5  s  t  o 

165 

143: 

if  ron=71 

a  n  d 

ern=95  sto 

165 

14'?: 

i  f  r  o  fl  =  0 

a  n  d 

e  r  n  =  395  1 +  P 

1 50: 

if  P=  1 5 prt 

"  I  AS 

e  r  t  p  r  o  s  r  a  iv 

" ? " cassette 
and” j "press 
f  1 0 .  " 


149;  Line  149  sets  P=1  if  an  error  39  has 
occurred  in  the  program.  Error  39  indicates  an 
error  involving  insufficient  memory  for  variable 
allocation.  This  P=1  will  be  used  in  the  next 
program  lines  as  an  indicator  that  this  error  has 
occurred. 

150:  thru  154:  These  lines  print  a  message  to 
the  operator  if  an  error  in  dimensioning  or  vari¬ 
able  allocation  has  occurred.  They  print  the 
message  "Insert  program  cassette  and  press  fl0. 
When  the  tape  stops,  press  f0  and  fll.  Insert 
NEW  data  cassette  and"  Then,  if  erl  (number  of 
the  line  in  which  the  error  occurred  is  less  than 
or  equal  to  38,  indicating  the  T7-only  mode  of 
the  program?  the  message  is  finished  with  "press 
fl."  If  erl  is  greater  than  39,  indicating  the 
T7/T11  mode  of  the  program,  then  the  message  is 
completed  with  "press  f2."  Analyzing  this 
message,  the  operator  will  insert  the  program 
tape  and  fl0  will  record  the  value  of  the  Dylon 
fiie  counter  (Y)  into  file  2  on  the  cassette. 
Then,  f 0  will  erase  all  variables  and  fll  will 
then  retrieve  the  value  of  Y  from  file  2  of  the 
cassette.  The  operator  then  inserts  a  new  data 
cassette  (because  the  track  and  file  indicators 
for  the  old  one  have  all  been  erased)  and  hits 
either  fl  or  f2.  These  two  keys  send  the  program 
back  to  redimension  and  reinitialize  all  program 
variables  for  either  the  T7-only  or  T7/T11  mode 
of  the  program.  At  this  point,  the  T7  channel  is 
channel  1  and  the  Til  channel  is  channel  3. 

155:  thru  157:  These  three  lines  also  set  P=1  if 
an  error  S7,S8,  or  S6  have  occurred.  They  then 
send  the  program  back  up  to  line  150  to  print  the 
operator  message.  These  errors  all  involve  prob¬ 
lems  in  string  dimensioning. 

158:  thru  160:  These  three  lines  are  executed  if 
an  error  42  in  the  mainframe  has  occurred.  This 
error  indicates  to  the  program  that  the  RECORD 
tab  on  the  data  cassette  is  in  the  wrong  position 
for  recording.  In  the  section  of  the  program  in 
which  this  error  might  occur,  it  is  highly  pos¬ 
sible  that  a  data  gap  is  occurring  in  the  Til 
probe,  so  the  message  printed  is  "Quickly  eject 
cassette  and  slide  RECORD  tab  over,  then  replace 
tape  and  type  cont  erl",  where  erl  is  the  num¬ 
ber  of  the  line  in  which  the  error  occurred. 
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151:  if  P=l-jprt 
" When  the  tape" 
»" st ops 5  press" 
j"fO  and  f'll." 

152:  if  P=1 5  prt 
"Insert  NEU 
dat- a " «  "casset  t  e 
and" 

153:  if  . P=1  j  i f 
er  1  <~38?  prt. 

press  t 1 .  j 
s  p  c  3  ?  b  e  e  p  5  0  ■>  P  5 
s  t  P 

154:  if  P=1 5  if 
e r 1 > 3 8 *  p r t  "pre 
ss  f 2. " ? spc  35 
b  e  e  p  5  0  ^  P  >  s  t  p 

155:  if  ron=83 
and  e  r  n  =  ?  5 1  * P  5 
5 to  150 

156:  if  roi'i-83 
o  n  d  e  r  n = 8  5  1  ■>  P  5 
?  t.  o  1 5  O 

157:  if  r o ci = 8 3 
a  n  d  e  r  n  =  6  5  1  *  P  5 
no  150 

153:  if  roci  =  0 
a  n  d  e  r  n  =  4  2  5  p  r  t. 

"  t1  u  i  o  k  1  e  J  e  o  t " 
'"cassette  and" 
j " s 1 i d  e  RECORD" 

158:  if  roci=6 
and  e  r n  =  4  2  5  p  r  t 
"tab  over?"? 
"Then  replace"' 
"  tape  a  n d  t / p e " 

160:  if  roci  =  0 
and  ern=425prt 
"  cont. " 

»  e  r 1 5  beep?  s  p  c 
3  5  s  t  p 

161:  if  ro«-8 
and  ern=30?prt 
"Insert  pros  ran 
"t  “tape  and 
t  >•  p  e  i  n  “  >  "Id  k 
8. " 


161:  thru  163:  These  lines  are  executed  if  an 
error  30  occurs  in  the  mainframe.  This  error  in- 
dicates  that  a  special  function  key  has  been 
pressed  by  the  operator,  but  that  key  was  not 
defined.  The  program  assumes  that  the  operator 
has  pressed  the  correct  key,  but  that  the  keys  are 
not  yet  defined.  Therefore,  the  message  "Insert 
program  tape  and  type  in  ldk  0.  Then  re-insert 
Data  Tape  and  Press  special  function  key  again." 
is  printed. 

164:  If  the  program  has  come  this  far  without 
being  sent  down  to  line  165,  then  it  is  evident 
that  the  error  that  has  occurred  is  not  covered 
in  this  error  subroutine.  In  that  case,  the 
operator  will  want  to  see  the  error  message, 
which  looks  something  like  this:  error  15  in  30. 
This  tells  the  programmer  that  the  printer  either 
ran  out  of  paper  or  failed  while  the  printer  was 
attempting  to  print  the  message  in  line  30  of  the 
program.  Therefore,  line  164  tells  the  calculator 
to  jump  164 -erl  lines  backward  in  the  program. 
This,  in  effect,  tells  the  program  to  execute  the 
line  in  which  the  error  occurred  another  time,  but 
this  time  the  on-err  condition  will  not  be  set 
since  the  error  subroutine  was  just  used.  If  the 
error  occurs  again  ,  which  it  should,  the  error 
message  is  displayed  and  the  program  is  stooDed 
Lo  await  operator  actio:  . 


r  •  k  ,Tl?es®  ^nes  decide,  as  mentioned, 
which  peripheral  is  down.  If  the  error  occurred 

°r  46'  the  Pr°9ram  is  told  to  go 
to  print  a  message  to  the  operator. 

sibnff!r^r*.°C-^red  t*  UnC  45'  thel'e  iS  3  DOS- 
lbility  that  either  the  clock  or  the  A/D  is  down, 

The  program  is  then  sent  to  "C1/A2D." 


169:  thru  171:  These  three  lines  are  reached 
through  lines  165  through  168.  They  print  mes¬ 
sages  to  the  operator  telling  him  that  the  Real 
Time  Clock,  the  A/D  Converter,  or  that  either  of 
the  two  is  down.  The  program  is  then  stopped  to 
await  operator  action.  *NOTE:  If  an  error 
occured  to  send  the  program  down  to  lines  165 
through  168,  but  the  erl  does  not  match  any  of  the 
line  numbers  checked  by  those  lines,  the  program 
will  tell  the  operator  that  the  Real  Time  Clock 
is  down,  since  that  is  the  first  message  reached 
by  the  program  flow  after  the  check  in  line  168. 


162s  if  roM=0 
and  ern=30?prt 
"Then  re-insert 
“."Data  Tape 
and" ? "Press 
special" 

163:  if  ro«=0 

and  ern=30jprt 
"function  key  » 
"again. " 5  beep 5 


St-P 

170:  "fl/D"'5 prt- 
"0/D  Converter" 

, "  Is  0own5i'j  # 
"See  Manual."? 
beep?  spc  3  j  s t  p 
171 :  "Cl /A2D“ 5  pr 
t  "Either  Clock 
or" » "B/D  is 
down? "» "See 
Hanua 1 . " ?  spc  b> 
st-p 

*25495 


fl 

10 

11 

13 

13 

46 

48 

52 

54 

5? 

57 

69 

b? 

103 

103 

B 

44 

50 

51 

52 

52 

53 

53 

6  o 

79 

79 

88 

80 

31 

81 

83 

8  4 

o  J. 

84 

84 

86 

*9 

114 

114 

115 

115 

1 16 

116 

1 26 

12? 

128 

129 

130 

131 

140 

140 

141 

141 

142 

142 

C 

1? 

1? 

17 

18 

25 

33 

44 

62 

100 

62 

62 

64 

D 

44 

51 

E 

47 

51 

53 

65 

65 

66 

76 

t  1 

i*i  *i 

84 

95 

83 

1  OS' 

109 

110 

1 1 1 

112 

132 

136 

13? 

143 

1  3? 

138 

139 

F 

6 

6 

18 

IS 

13 

13 

19 

1  9 

20 

28 

25 

-.  C 
w  J 

25 

25 

26 

26 

w  1* 

27 

64 

64 

64 

64 

?0 

71 

71 

V  v 

l'  u 

72 

74 

O  © 

100 

100 

IDS 

1  80 

104 

105 

105 

1  8  c 

1  06 

103 

G 

6 

IS 

19 

19 

20 

“i  Ej 

26 

26 

27 

64 

71 

*7  « 

1  1 

7  u! 

74 

83 

100 

1 08 

185 

105 

136 

H 

44 

51 

84 

C*  1 

nr 

84 

86 

FILE  8 

VARIABLE  CROSS-REFERENCE  AND  DESCRIPTION 

NOTE:  In  this  variable  listing  and  description, 
each  variable  will  be  listed  on  the  left>followed 
by  the  program  line  numbers  in  which  they  occur. 
To  the  right  will  be  a  description  of  what  the 
variable  is  used  for  in  the  program.  After  each 
description  will  follow  either  an  *,  a  *,  or 
nothing.  Ah  asterisk  following  a  description 
indicates  that  the  variable  is  used  only  in 
the  T7-0nly  mode  of  the  program.  A*  indicates 
the  T7/T11  mode,  and  nothing  indicates  both. 

NOTE:  These  character  descriptors  are  used  to 
indicate  in  which  program  modes  a  variable  is 
used,  and  do  not  necessarily  mean  that  the 
variable  does  not  occur  in  the  other  half  of 
program.  They  simply  mean  that  the  variable 
may  be  initialized  or  dimensioned  in  another 
part  of  the  program,  but  that  it  is  only  used 
in  the  specified  program  section. 

A:  A  is  used  to  store  the  16-bit  data  word  made 
from  the  two  combined  8-bit  words  read  into  the 
calculator  from  the  A/D  Converter. 

B:  B  is  the  valid  data  point  counter  for  the  Til 
probes.  Since  B  is  actually  twice  the  actual  num¬ 
ber  of  valid  data  points  taken  minus  one,  it  is 
also  used  to  position  data  values  in  the  main 
data  storage  string  for  the  Til  probes.  This  is 
necessary  due  to  the  integer  precision  method  of 
data  storage  being  used.* 

C:  C  is  the  invalid  data  point  counter  for  the 
T7  probes. 

D:  D  is  the  sample  duration  in  seconds  for  the 
Til  probes  and  is  always  equal  to  269.* 

E:  E  is  used  to  store  the  number  of  the  T7  chan¬ 
nel  so  that  it  can  be  input  into  T  (channel  selec 
tor  variable)  when  it  is  time  to  read  in  a  value 
from  a  T7  probe.* 

F:  F  is  the  file  counter  for  T7  probes  on  the 
cassette.  T7  raw  data  is  recorded  on  the  even 
numbered  files  from  0  to  18  on  both  tracks. 
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I 

9 

12 

1 3 

13 

14 

14 

14 

15 

15 

16 

17 

1? 

17 

17 

18 

25 

■50 

44 

56 

57 

57 

58 

58 

59 

6 1 

62 

62 

6  il' 

62 

64 

69 

&9 

69 

69 

35 

95 

95 

96 

96 

o  y 

.■  i 

97 

99 

99 

too 

1 0  3 

103 

IDS 

103 

104 

104 

125 

132 

132 

133 

133 

134 

134 

J 

6 

20 

27 

44 

44 

67 

70 

7S 

72 

"*  -  j 

1  -* 

73 

74 

74 

86 

86 

36 

o 

1 

87 

88 

S3 

101 

104 

104 

186 

107 

107 

108 

108 

K 

; » 
n 

28 

27 

67 

72 

73 

73 

74 

86 

87 

87 

83 

101 

106 

107 

107 

108 

L 

44 

58 

61 

62 

79 

82 

92 

93 

114 

117 

126 

129 

130 

140 

H 

44 

49 

51 

5  1 

63 

67 

68 

69 

70 

76 

78 

86 

99 

101 

102 

103 

104 

111 

113 

126 

127 

128 

129 

130 

131 

140 

141 

142 

fl 

79 

79 

95 

95 

114 

114 

132 

«  O 

i  :  w. 

140 

140 

0 

79 

79 

95 

95 

114 

114 

132 

1  J  d 

140 

140 

G:  G  is  the  track  indicator  for  the  T7  probes  on 
the  cassette.  It  is  always  either  0  or  1. 

H:  H  is  the  invalid  data  point  counter  for  the 
Til  probes. * 

I:  I  is  the  valid  data  point  counter  for  the  T7 
probes  and  is  the  counterpart  of  B.  See  the  docu¬ 
mentation  of  the  variable  B  for  details. 

J:  J  is  the  file  counter  for  the  Til  probes  on 
the  cassette.  It  is  always  either  20  or  22. 

K:  K  is  the  track  indicator  for  the  Til  probes 
on  the  cassette.  It  is  also  always  either  (J  or  1 

Ls  L  is  used  to  store  the  number  of  the  Til  chan¬ 
nel  so  that  it  can  be  input  into  T .  (channel  selec¬ 
tor  variable)  when  it  is  time  to  read  in  a  value 
from  a  Til  probe.  It  is  the  counterpart  of  E.S 

M:  M  is  the  indicator  which  tells  the  program 
whether  or  not  a  Til  probe  is  finished.  It  is 
0  when  the  probe  is  not  finished  and  2  when  it  is 
finished.  $ 

N:  N  is  the  variable  used  to  store  the  time  read 
from  the  unit  2  timer  in  the  Real  Time  Clock  that 
is  used  at  various  points  in  the  program. ■)( 

0*>  0  is  used  to  store  the  value  of  the  number  of 

lost  data  points  during  the  recording  of  data  on 
another  probe.  It  is  always  the  value  of  N/1000 
times  20  and  rounded  to  the  nearest  integer. $ 

P:  P  is  used  as  an  indicator  ir.  the  error  subrou¬ 
tine  called  "error".  It  indicates  to  lines  15jJ 
through  154  whether  or  not  an  error  in  dimension¬ 
ing  or  allocation  of  variables  has  occurred  and, 
consequently,  tells  the  program  whether  to  exe¬ 
cute  these  lines.  Thus,  P=0  if  a  dimensioning 
or  allocation  error  has  not  occurred  and  P=1  if 
such  an  error  has  occurred. 

Q:  Q  is  used  to  write  out  to  the  Dylon  unit  to 
register  invalid  data  for  a  data  gap.  Q  is  al¬ 
ways  equal  to  1100. 
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p 

14 

99 

104 

144 

149 

150 

151 

152 

153 

153 

154 

154 

155 

156. 

157 

Q 

6 

17 

44 

62 

96 
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134 
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11 
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1  U  2 

S:  S  is  used  to  store  the  value  of  the  number  of 
a  Til  channel  on  the  A/D  Converter.  It  is  used 
primarily  when  messages  concerning  the  Til  probes 
have  to  be  printed  to  the  operator.  Since  the 
channel  selectors  for  channels  3  and  4  are  T=4 
and  T=8,  S  is  used  to  store  the  numbers  3  or  4  so 
that  it  is  easier  for  the  operator  to  know  which 
channel  is  being  talked  about  in  a  message. $ 

Tj  T  is  the  channel  selector  variable  for  the 
A/D  Converter.  It  is  either  1,2 , 4,  or  8  depend** 
ing  on  whether  the  operator  is  looking  at  channel 
1,2,3,  or  4. 

V:  V  is  used  to  store  the  memory  location  of  the 
end  of  a  data  gap  so  that  that  gap  may  be  filled 

with  the  exact  amount  of  data  points 
with  value  11 00  (invalid  data) .< 

W:  W  is  the  counter  in  the  for/next  loop  which 
is  used  to  write  invalid  data  into  memory  to  take 
care  of  a  data  gap.  W  ranges  from  the  current 
memory  location  from  where  the  gao  started  (B) 
to  the  ending  location  of  the  data'craD  (W) . 

Y;  Y  is  the  counter  for  the  number  of  files  al¬ 
ready  written  onto  the  current  Dylon  tape.  It  is 
actually  one  mere  than  the  number  of  files  alrea¬ 
dy  written  and  is  stored  in  file  2  of  the  pro¬ 
gram  tape.  Whenever  the  program  is  loaded  and 
run* the  Dylon  tape  is  rewound  and  spaced  forward 
Y  files,  so  the  tape  ends  up  at  the  beginning  of 
the  file  immediately  following  the  last  recorded 
data  file  on  the  tape. 

A$:  A$  is  the  string  used  to  store  the  T7  probe 
data.  The  data  is  stored  in  integer  precision 
format,  which  takes  only  2  ASCII  characters  (2 
bytes)  to  store  a  data  word. 

E$:  E$  is  used  to  store  the  probe  start  time  for 
the  Til  probes. i 

F$:  F$  is  used  to  store  the  probe  type  for  the 
Til  probes. 

G$ :  G$  is  used  to  store  the  Til  probe  data.  It 
is  the  counterpart  of  A$.$ 

P$  and  T$:  These  are  the  probe  type  and  start 
time  strings,  respectively,  for  the  T7  probes. 


FILE  9 

DATA  ACQUISITION  PROGRAM  (NO  PYLON  UNIT): 


FILE  9  is  exactly  the  same  as  FILE  8,  except  that 
all  references,  variables,  messages,  program  lines 
etc., regarding  the  Dylon  unit  have  been  deleted. 
The  programmer  is  informed  at  the  first  of  the 
program  to  turn  the  Dylon  power  OFF.  CAUTION.: 

If  the  Dylon  unit  is  left  powered  up  during  the 
running  of  this  program,  the  sample  rate  of  the 
probes  will  be  severely  affected  11 

The  only  difference  in  FILE  8  and  FILE  9  is 
the  line  numbers  and  hence-  the  spacing  of  command 
statements  in  the  program. 


FILE  10 

DATA  ACQUISITION  PROGKAM  (3  CHANNELS  ONLY) 


FILE  10  is  exactly  the  same  as  FILE  8  except  that 
there  is  no  backup  channel  for  Til  probes.  If 
a  channel  becomes  defective  (any  channel,  since 
hardware  changes  can  easily  be  made  in  the  system 
to  make  any  launch  station  go  to  any  channel) , 
this  program  launches  Til  probes  on  channel  3  as 
usual  but  will  only  print  the  Bad  Probe  message 
for  Til  probes  which  are  found  to  be  defective. 


Listings  of  these  two  programs,  along  with  variable 
cross  references  (unexplained),  follow  in  the  next 
few  pages. 


Oj  ci  er '  "error  * t line  2COO$avdjdsp  ’Turn  Dylon  power  OFF" jbeep »sfp 
li  fxd  Cjwr.t  9, *ft,U2»13* jpr t ' * t nsert  data  tape’jspc  2iatpr 

2.  di-n  7>:i43,P#[6J,A*tm03,E5J[t4:  ..Filo! .GitlOSOCl  j fmt  i,z,f  . Otfnit  2,z,f4..C 
3i  I  'T5£C-»Jj'0-*FjO-*G»0*Kjfdf  F  . 

4i  .t-  err  "error*jp*'t  "Press  Con*  inue* ,  "Just  before" ,  •;  root,  Isuneh" ipc  2 
5t  i-»l  t.beep jdsp  "Ready,  to  continue^’-jdeepjatp 
Si  wr t  70S.t>"H",T,T,,Ad-' 

7-  iorC3hf<rdbC706).-S3,rd>C?0S3}4fttwait  32i-T.ei+0-*V 
8i  if  abaCA)>1000 J3tc  "Invalid" 

9»  if  I»ljgto  "tin-**  -  _ _ 


10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


fti  CA)-»A$t  I ,  l  ♦  1 3 
if  I >4800, jgto  "finish* 

I  *2-*I  $gio  S 
•invalld*iif  I^tjglo  8 

Cn*Cjfti  ai0O>-AFC’l,lrll  j4-2*I  ,if  C'nOjgto  6 
trk  6?  ref  F,T<t,P*,A*ifdf  F-2jr  *2-*F 
if  T>19ilf  G*0  1 1»*G ( C -r”  jgto  lo 

if  F.<  ISjO^GtOeF  j0-<K(2C-iJ»beepiprt  "Cheng*  Set*  Tape"  ,*  Immediately* !  *  ;be*p 
teepjprt 1 "Sad  Probe" ,T|beep 
if  T»2»l*T,9to  21 
2*T 


21 

22 

23 

24 
23 
26 
.27 
26 

29 

30 

■;  ♦ 

•  4  « 

32 

33 

34 

35 

36 

37 

38 
33 

40 

41 

42 

“T 

44 

45 

45 
47 

46 

49 

50 

51 

52 

53 

54 


beepjprt  "Launch  T7  an* ,  “Channel*  ,7jbeepj  sp-:  ,2  jgt  ?  1 
"f  ir.lsh'itrt  6  j  ref  r  ,T$  ,?t ,  A) .  'li  r-2,F*2-*F»0.'*C}l4l 
if  F>19» if  G-Cit->G,0-*Fj9t<>  25 

if  r  '<19jO-*G|0'*,F>0-*K»20-*J|beepjprt  "Change  Date  Tape"  , "  Immediate! y  U  *  jbeep 

: f  7 »2 $ t-*T »gto  27 

ovr 

beepjprt  ‘Launch  T7  on* , "Channel* ,Tjbeep>sps  2igto  4 
"time" iwrt  9,"R»«"ie«T7  *-?* 
red  9,T*jDrt  Tfjon  err  •error* 
gto  10 

“■defect * « if  T"2 jl-*T jglo  33 
2-*T 

beepiprt  "Launch  TV  an* , "Channel* .Tjbeep 
1  1  j  0-*C  ;3*o  4 

dim  Til  14  !  , Pt  163,  AFt  4610  3  ,£5114) .FilSl ,G*i  10300  3  ,fr.t  l,z,f.O 
Leepiprl  ‘Launch  Til  on* , "Channel  3", ’whenever  ready" tape  3jf*t  2,z,f~,0 
on  en  ’error "jprt  "F'ess  Continue* , "just  before"  "p.  be  launch" jape  i 
if  T*Q,1-T 

LeepX.ap  "Ready  to  cont Inasf  * » ;*rp j stp 

l  9 1 4-*L 1 2S9*P i O-H } 04l( 34C 1 1  *! t i f  J“C'2Q-»J  ' 

wrt  706.1,"H* ,T,T,*AJ" jwait  9 

ler  <s,hf  CrdbCTOSJ  ,-3)  ,  rdb(V063 3 -A;  f  tC*0-»V 

if  T\3jT-»E jgto  50 

if  absCfiXIOOOsgta  46 

if  M*C»gto  "tnvalidy* 

if  B*l»gto  "timeb" 

if  3>400|2-*M»NrC-*HjE+C-*Tiwait  l;gto  41  .  ^ 

fti  CA>-»G*IB  ,B  ►’  1 
B*2-*B  iE-T $gtc  41 
if  abs  CAX10C0  jgto  51 
3to  'ir.validx* 
if  I-ljgto  "times" 
fti  (A3-*AS[  1,1*13 
. !  *  2-»  I  -.L-T 

.f  IMSOGigto  "finishl* 


56. 

57. 
58 1 
59! 

so. 
61 1 
32 . 


•j  1 0 -  -41 

*  inval idx' < i r  1*1  jL+'fO^Tjwait  2jgtc  41 

C*l->Cjfti  -C<40-tL-T»gt-5  41 

.if.  .  .1 . _ . . 

tr k  Gjrcf  F,T$,PtsA$>fdf  F>2jr*2-F  jC«Cjl-*i  ' 

If  E«lj2-*Ejgto  63 
1-*E  , 


63  j 
64* 

65. 

66. 
67 . 
66. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 
78. 

77. 

78. 

79. 

80. 
31. 
82. 

83. 

84. 

85. 

86. 
37. 
88. 

89. 

90. 

91. 

92. 

93. 

94. 

95. 

96. 

97. 
96. 
99. 


if  .4*2  j  trk  Kjrcf  J,E*,F*,G* jO+Hjl  *8 
fdf  F,JV2-*J 

If  F>19j if  G-0>l-*CM0-*Fj3to  67 

if  F>19j0**3}0-»F}0-»Kj20-*  Jjbfcd?jp.' t  ’Change  Date  Tape' , '  Immediately !  !  *  jbeep 
if  J>£3j if  ’*■*0 j l''!\$20-*Jjgto  69 

If  J>23j0-»Kj20-*J}0-»CM9'*F|L'e*p)pi  t  ‘Change  Dai*  Tap**  ,  *  Immediately  !  s'*  jbeap 

beepjprt  'Bed  Probe* ,7$be*p 

if  M*2 jE^T.beep jpr t  **T7  PPC'BE:  34LY«*}baap 

beepjprt  "Launch  T7  on* ,  'Channel  "  ,E»baepjspc  2 

if  M*2j'gto  4 

if  B*tj*rt  9,*U2V*jred  S,H: int  C:!/’.DC3*C05*0>B*20*4*Vji.«T  •*'  ' 

if  8#ljfor  W-B  to  V  b>  2.*ti  Ci:C3>-*6i[M,M*-t3  $r.ext  W 
if  B#t»V-*B$gto  41 
L-'Tjgto  41 

*  .rival idy* .  If  B*ljE*7j/C-»PjwaLt  2jglo  41 

H*l-»Hjf  ti,  CU0«-G*IB,8*1]  j3*2-*3$if  H  .'60  jE+T.gto  41 

if  I#ljwrt  9, *U2C,U2G* 

trk  Kjrcf  J,E*,F5,G*jJ*2-*JjC*»Hjl-»Bj3-«M 

if  J)23j if  K*0 jl-*Kj20-»Jjgto  83 

if  J>23j0"*K$20-*J  jC-*OjO-»Fib«cp.p^t  *Char.ga  Data  Tape* ,* Immediately 1 !’ jbeep 
if  T*8|4-»Sjgto  85  - 

3-S 

beepjprt  *Bod  Probe* ,S jbeep 
if  S-4j4-L|3-»S»gto  33 
3-*L  j4"^S 

beepjprt  "Launch  711  on* , 'Chennai* ,? .baepjspc  2 

if  !#i  j«*rt  9,  "J2V*  jred-  9,Nj int  CH/1C'  *  •20)-*C.  t  *2O*10-*VjE-»T 

if  Wljfor  W*  1  to  V  by  2jfii  <1100>*AtiM»M*n jnaxt  W 

if  1#ljV-»!jgto  41 

E-.Tjgto  41 

•f iniahl*  «if  M-0ilf  8#ljwrt  9,*!;£C,V2G* 

trk  Gjrcf  F,T*,Pt  jAf  jfdf  F*2  jF*£-*M  *1  $0-*C 

if  «*2jtrk  Kjrcf  J.Et.Fk.j* 

fdf  F j if  M»2jJ*2-d 

if  F>19$ if  G*0$l-0.C-F}gto  99 

if  F>13.0r»G$0-»F  j0-*Kj£0-«Jkbeapsprt  ’Change  Data  Tvpe*  ,* *»«adiat«ly! ’  jbeep 
if  J>23j if  K»0jl  •h-.EC-Jjgto  101 


100.  if  J>23j0-+Kj20’Jj3-»G:0-*Fjbe*pjp;  t  *v*.-ange  Date  T&pe*  ,* Immediately 1 !  *  jbeep 

101.  if  E*1  j2-*E jgto  103  ' 

102.  1-*E 

103.  if  M*2jE*‘T;be*pjprt  **T7  PSCBES  0HLY»*  jbe-.p 

104.  beepjprt  'Launch  T7  on’ ,*CSaT..-«al*  ,c  jspc  2 

105.  if  M-2jgto  4 

106.  if  B'ljvrt  9, *U2V*  jred  9,«.in*  CN/1000*20)-»0  jB*-2Q*4-»‘V--’T 
1C7  <  it  B#ljfor  M«9  to  V  by  2jfU  C11007-»G»tM,W*ll  jnext  W. 

108.  if  B*ljV-*Bjgto  41  *  ' 

109:  L-»T jgto  41 

110.  *  timea*  »wrt  9, ■R' j * '*wT7  *-»Pt 


111 

112 

113 

114 

115 

li's 

117 

lid 

US 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 
1*6 
147 
143 

149 

150 

151 

152 

153 

154 

155 

156 

157 
15S 
159 


red  3,T$spf-t  Tl}Oti  err  ’error* 

3to  53 

"Umeb’.vrt  9,  *P*  j  *rawTll  »-»F* 
red  9,E1jprt  Etjon  err  ’error" 

.  gto  47 

"def acto’ :cf g  }  i :  I*ljgiw  127 
If  M-*0  j  i  f  B'ljif  L»4»3-»Sjsto  U’D 
i *  M-Ojif  8*1 » 4*»5 

:  f1«0jif  B“ljbeep*prt  ’Bad  Pro!:*’ jefc,  2 
M*0  j  If  *7-1 ;  if  5-3j4-*SjS-»L^g‘.o  122 
t f  M-Ojif  B-lj3-3,4-<L  .  . 

If  6-ljprt  •Launch  TU  on" ,  "Channel  ’,S  fu’rc  2 

if  I#ljif  f  lg2  $wrt  9,  *U2V’  jred  9,N»intCN/1000*2fn  ♦£>•  I«-20*4-*V»E-»T 
If  I#l}if  f  lg2  jf  or  !4«I  to  V  by1  2»fti  CUDOl-WWW.IMl  ,n*xt .  W 
If  fl92»V-:,gto  41 

If  flg2*0jprt  'Program  error j ’Both  probes’ , 'look  valid. *jsp«  2»stp 
beepsprt  ’Bad  Probe* ,E$beep 
If  E-l»2>E?gto  130 
1-*E 

prt  ’Launch  T7  on* , ’Channel ’ ,E j spc  2 

if  M*0«if  B41»wrt  9,,U2V,.“*d  9,N}intCi<1000*20?-*C»B*20*10-*VjL'*T 
If  M-Ojif  B#ljfor  W»B  to  7  2»ftl  CU09>-*GtIW,U*l  J  jrnsxt  M 
if  M-Ojif  B/liV^B,3to  41 
.’error’ »0-*P 

if  rom*S9  and  ern«4»gto  153 

if  rom-71  and  ern«8»3to  153 

if  ,-ow"?l  and  ern“4jgto  153 

if  rom»71  and  ern-»9j3to  153 

if  rom*0  and  er n->39»  1-*F 

if  Paliprt  ’Insert  MEW  data* >  ’.-.isictte  s  orea.*‘ 
if  P-*ljif  erl<*34jfrt  "fG  and  f 1.  ‘ jO-Pjspo  Tltoeepjttp 
if  P»ljif  erl>34tprt  *f0  e~>.J  ' ;  0  '?  j  spc  3  j =p  i*»tp 

if  rom*83  end  ern«7 jl-*Pjgt<>  .*.49 

if  rori«83  and  ern-»3jl-»P»glo  149 

if  rom»83  and  orn"6il-*Pjgto  143 

if  rom*0  and  ern«42»prt  ’  utiickly  e] -ct  *  > 'c^s-ct'tte  and' ,  "slide  RECORD’ 

if  rom«C  and  ern*42iprt  "  *.»:i  c\ et  ,  * ,  "Then  replac-*  ,  *  tape  and  typ^* 

if  rom'-O  and  ern*42jprt  *  coni’  ,cr  1  theepispc  Zjstp 

if  rom»Q  and  erri>*3Ciprt  ’Insert  prog-vit'" .  *  ‘*.\e  ar.^  type  lr.*,’ldk  0.’ 

if  rom-0  and  ern  »30  >  f.r  t  “Then  re-  inse»  .  * ,  'Tn  la  Tape  and*, "Press  spec. a 

if  rotn*0  and  ern*30ipt-t  ’■'unction  ku/’, ’again  ’jbsepjstp  - 

Jmp  - C152-er 1 > 

if  erl-*ojgto  ’A/D" 

if  er l *7  $gto  ’C1/A2D’ 

'  er  i  *41  sgto  “C1/A2T 
erl-42t9to  *A/D’ 

’Clock’iprt  ’Real  Tire  Clock", ’Is  Do^nj*,uS^.e  Manual jbeepjspc  3;stp 
’A/O’tprt  *A/D  Conver ler * , ’ I  a  Downs’j’Sce  Mental. * sLeepjspc  3?ato 
’Cl/A20’jprt  ’Either  Clock  or",’P'C  is  dc  .  "  ,  ■“  le  rtiinual .  *  >3pc  2;jtp 


*‘';^0£>‘~iJti**».'.'’if~i?*‘~r'.-Mt*'  ‘-■■to.'-1.  J?  •*• 


.  *l%  ir*t„  ■  ?&, 

*&fi 


Cross  Reference  for  Variables  for  File  9 


.  i 


i  <«* 

f  li 


fi 

7 

8 

10 

G 

3 

15 

16 

42 

44 

43 

50 

16 

17 

22 

23 

53 

23 

24 

60 

65 

65 

66 

68 

82 

B 

40 

46 

47 

94 

97 

97 

98 

48 

48 

49 

49 

100 

59 

63 

73 

73 

47 

74 

74 

75 

75 

H 

49 

63 

77 

78 

78 

78 

78 

78 

78 

80 

78 

80 

93 

106 

10 

106 

107 

107 

108 

I 

5 

9 

108 

117 

118 

119 

10 

11 

12 

12 

120 

121 

122 

131 

13 

14 

14 

14 

131 

132 

132 

133 

14 

15 

22 

34 

133 

40 

52 

53 

53 

54 

54 

55 

57 

C 

14 

14 

14 

58 

58 

5S 

58 

15 

22 

34 

40 

60 

79 

89 

89 

58 

58 

58 

60 

90 

98 

91 

91 

94 

94 

116 

123 

123 

124 

124 

125 

125 

D 

40 

47 

. 

24 

J 

3 

17 

E 

43 

47 

49 

40 

40 

63 

64 

61 

61- 

*2 

70  . 

64 

66 

67 

67 

71 

77 

78 

89 

68 

68 

80 

80 

92 

101 

101 

102 

80 

81 

81 

82 

103 

104 

123 

127 

82 

95 

96 

96 

128 

128 

129 

138 

.  98 

99 

99 

100 

100 

F 

3 

3 

15 

15 

15 

15 

16 

K 

3 

17 

24 

16 

17 

17 

22 

63 

66 

67 

67. 

22 

22 

22 

23 

68 

88 

81 

81 

23 

24 

24 

60 

82 

95 

98 

99 

60' 

68 

60 

64  v 

99 

100 

65 

65 

66 

66 

57 

68 

82 

94 

94 

L 

40 

54 

84 

94 

96 

97 

53 

73 

76 

86 

97 

98 

98 

100 

87 

106 

109 

117 

120 

12  i 

131 

N 

40 

45 

47 

59 

63 

70 

72 

80 

93 

95 

96 

■103 

105 

117 

118 

119 

128 

121 

122 

131 

132, 

,  .133 

N 

73 

•j  r. 

f  3 

89 

89 

106 

106 

123 

123 

131 

131 

0 

73 

73 

89 

89 

186 

106 

123 
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Icif  2,Yjprt  "JUST  bef ore" >"era5ing  this" , “program,  be  siu^e**. 

prt.*to  insert  the" ,  "program  tape  and*,*preaa  flO.*,s,apc  Ilsbee'pjs'.p 

wri  704,*Q"jprt  "When  Dylon  atopa" , "preaa  CONTINUE* jape  2javd}fjtd  .•G»a1tp1 

wi-t  ’’04 ,  "YQK*  ,Yj©n  err  "error"  ’  r’ 

time  2000jwrt  B^AjUE-IS'iprt  "Insert  date  tap^’jape  ?.jatp 

dim  T»ri43,P4I6I,rH:-810I,EtU4:,F«:31,Oi:iC8001jfmt  1  ,z,f .,5,-fmt  S'.zyM.O 

l-»~  j 20-*J j 0-*F >0-*3 j  0**n j  1100-»5 j  rdf  F 

on  err  "error " jprt  "Preaa  Continue" ,* jest  before* , "probe  launch" ;apc  2 
t-»i  ibeepjdap  "Reedy  to  cont  inueT"  jbeepjstp 
wrt  70S.1;*H",T,T,*AJ" 
lot  (shf <rdbC706),-£I  ,'-dbC706>>-»A 
if  aba<A)>lC00 igto  'invalid" 
if  l»ljgto  "time" 

fti  t 1 , I ♦! J jwr  t  705. 2> A t wait  2? 

if  l>2400*2400,gto  "finish" 

1  ♦  2 ♦  0-*  1  »gto  9 
"invttlld"«lf  l'i»gtc  9 

Cn+CsHi  aiOO)-A»tI,l*lJi:*2-*i»*rt  735.2,Gjlf  CC40»gto  9 
trk  Of  ref  F,T»,P*,A»,fdf  F*2»F*2~F »wrt  704, »Y"  jYU^YjO-Cjl-*! 
if  F/19jlf  G«0»1-*G$0**F  jgt»  21 

if  F>19»0-*Gj0-*Fj0-*K  j20-*Jjbeepjprt  "Change  Data  Tape" ,  "Immediately 1 !  *  jbeep 
bseptprt  "Bad  Probe* .Tjbeep 
if  T»2»1-*T »gto  24 
2-*T 

beeptpr t  "Launch  T7  on" , "Channel " ,Tjb«ep»spc  2»gtc  7 

"f  itilah*  itrk  Gircf  F,T«,P*,A> »wrt  704,"Y"  «Y»l*v,fdf  F*2»F*2*»F»0rCil-*t 

if  FMSjif  G«3|l**CjO-*F»g;o  26 

if  F>19jO'»G»O-*Fi0-Kt2O**J»beap»prt  "Change  Data  Tape" ."Immediately! !" »b«ep 

l#  T«2 j  1-*T igto  30 

2*»T 

beepvprt  "Launch  T7  on" , 'Channel  * ; T jboepjspi  2»gto  7 
"tlme’iwrt  9, "R"  • " rawT7 

red  9,T*jprt  T*»or.  err  ••rrer,tCMd  7,"?"jwrt  7C4 , "B14K1 * j omd  7,'X" 

wrt  705,T$jwrt  704 , "BSW1* icmd  7,'X’jwrt  705,Pt«wrt  704 , "B1C0OW32OOO" 

cmd  7 , "X" igto  13 

"defect * » if  T*2jl-Ttgto  37 
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beepsprt  "Launch  T7  on" , "Channel" ,Tjheep 
1  •*!  $  O^C  jgto  7 

dim  Tttl41,Pti61 ,  At  1 4310  J  >Ettl.4I  ,Ftl81  ,Gtt 103001 jfyrt  i,=,f.0jfmt  2,z,?4. 
beeptprt  "Launch  Til  on* , "Channel  3' ,  "wherever  ready"japc  2jf»t  2,2,f4.Q 
an  err  "error"jprt  "Press  Continue" ."just  before" , "probe  launch"tspc  2 
if  T*0|bT 

beepjdap  "Ready  to  continue'-*  ibsepjato 
i-»Bj4-*Lj259-*D  j0"*H>0-*M»0-»Cjl-»i  j1100*»Qj  if  J»0»£0-*J 
wrt  706. 1,"H",T,T,"AJ", welt  4 
icrCahf CrdbC706> ,-87 ,rdbC7?5>5-Aj2r0-7 
if  T<3}T-*E jgto  54 

if  aba CAO <1000  jgto  50  .  » 

if  M»0*gta  "invalidy" 
if  B’ligto  "timeb* 

if  B>40Dj0<TQ-*N>2-?’1!0-*HjE'‘T ;  ^ait  ligto  45 

fti  CA)-*GttB,3  +  t  1 

■3»2-*BiE-»T}g*.o  45 

: f  aba CA> <1000 sgto  5S 

jio  "invalidx* 


5S>  if  l«ljgto  ’timea’ 

57 1  m  CA3-«A*lI,I*J.ljwrt  795. 2, A  ,  ' 

58*  ! ♦  C.-»I  jL-»7  '  . 

59*  If  l>4S00}gto  *  finiahi*  . 

6C*  g to  45  . .  '  ■  ‘ . 

61 »  * inval ldx* *  if  I»1  jL-»T}wait  7sgtc  45 

62*  C  +  i-*Cjfti  Cl  100>-*Alt  I ,  l  ♦!?  1 1  *2*1 jwr  t  7?5.2,0sif  C<40;L*T|9tc  45 
63 t  if  M-Cjif  Bfljwrt  9,”J2C,U2G* 

64.  trV.  G.rcf  t  ,7$  ,P*  , A* }  fdf  F»2  j7»2-*F}wr*.  704 , ’V  jY+l+YsO-C  jl-' 1 
65*  if  Ejls2-Esgto  67 
66 i  1*E 

67 *  if  M-8»tpl  Kjrcf  J.EI,Fi,Gt jCmd  7,*?"»wrt  704 ,  "B14W1"  ,bn»d  7,’X' 

63 1  If  M»2$wrt  705,E^  jwpt  704,  •B6M1*  «wrt  705,F*«wrt  704 , ■B10-'VOU32000» 

63.  if  M*-2  jf  or  1-1  to  10759  by  2» i tf <G«I  1 , !♦! l)-*A»wrt  703.2,A»next  I 
70 »  if  M-2jwrt  704, 'y  ,Y*l-.-Y,  Mf  F»J*2-J 
71 1  if  F>iS j if  G«0  j  l*Gj 0-*F  jg  to  73 

72>  if  F>  19»0*Gj0-»Fj0'*Kj20*J$beap»prt  "Chang*  Data  Tape* Immediately !!* jb^ep 
73.  if  J>23j  if  K-0jl-*Kt20-*Jfgto  75 

74*  if  J>23>0’»K|20-*J»0-*Gf0^F  jbftep.fpf't  "Chenge  0<*ta  ’Ptne* ,* Immediately !!* j beep 

75*  beepsprt  "Bad  Probe* >T jbecp 

76.  if  5,'»2 »E*T  jbeepjprt  ’#T7  PROBES  OHLY3H*  jbeep 

77t  beepsprt  "Launch  T7  on* , ’Channel " ,E sheeps ape  2 

78 j  if  M«2 ($to  7 

79.  if  B<*1  )wr t  9,’U2V’sred  9,H» intCN/10,30*203*?.sB*20M*VsL*T 
90.  if  3#\jfor  :>B  to  V  by  2|f*.i  C1100)-'0f  s»ext  M 

91 1  if  B#lsV-*6igio  45 
32*  L*»T  igto  45 

33.  * invttl idy* « if  3»ls0r0~TtE*Tj*«it  2$gtn  45 

84.  H*l-H|fU  U100J*0$tS,B*lls3’2’&iif  il<50  sE-*T,gto  45 

35*  if  I#l,wrt  9, ’V2C,U2G* 

86*  trl  K»rcf  J,E«  ,F*,G*sJ’2*.':0-»Hs0*M 
37*  if  J>23jif  k'«0jl**K»20-Jjgto  89 
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95*  "f inishl* *  if  M*0jif  B»»is*rt  9,’U2C,U20’ 
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93*  if  ‘!=2jif  3<15000  j  irk  K,rof  El  ,FI  ,Gi  }ci»-.d  7,’?’;wrt  "04, *514541’ 

99*  if  M-2j:f  B<15030s:md  7,’X’jwit  705,E»$wrt  704 , ’CBWi’ jwrt  703, FS 
100*  if  M-2» if  B<15000s-wrt  704 ,  "&100C,.,320001  st or  1*1  to  10739  by  Z 
101*  if  K“2’iif  B<150C0.  itf  (G*II  ,1  *.:0-»Aswrt  705. 2  ,  A » next  I 
102*  if  1«2jif  Bsl5000  jwrt  704  . "  Y"  $Y»1-*Y  s  f  df  FjJ*2-*J  ' 

103*  if  F>19jif  3*0 s  1“G s 0**F *g t o  !  05 

134*  if  r  >19j  0-»Gs0-F  jO-»Ks20-*Jsceep  jr*rt  ’Change  Data  Tape*  .  ’Immediately* !  *  .beep 
105*  if  J>23 j  if  K=0  sl-»Sf  i20-»J  jgto  107 

106*  if  J>2o}0-lCs20-»3jC -fGsO-^Fibfcapsprt  ’Change  D-»ta  Tace’’ Immediately ! 1  *  j^eep 
10-7,  if  E-ls2-*Ejgto  109 
108*  l-'E 

109*  if  M*2 $E-*T  jbeep  spr  t  J>’T7  PRCBT8  CliLY**  ,batp  •  " 

110*  beepjprt  "Laanch  T7  on' , ’Channel * ,Ej 5pc  2 
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it  i4*2»gto  7  •  j 

If  B#l»wrt  9,*U2V*ired  9,MjintCN/.10CO*2C)-*0$B+20+4-*V|LJ-T  j' 

if  9*1, for  W*B  to  V  by  2,fti  CUOO)-*Gii:M,U+l? jnext  H  .  .  .  t  < 

If  B*ljV-*6:qto  45  .  '  _  5 

L-*T,gto  45  >  ;•  .  1  ; 

.ftimeo"  .wrt  9, 'R"<j  "f  a*T? 

red  9,Tt  jprt  Tljon  err  'er-or ' jcmd  7,*?*,wrt  704,»B14Wi" »cmd  7,’Z  ; 

wrt  705,Tij*rt  704, "E3K1' ,cmd  7-,"X',wrt  7S5,P*»mrt  704 ,"B1CC0U320P0,'  t 
■;pd  7,*X*}gto37 

"  tifr.eb*  »wrt  9,*R','rawTU'-F*  _  N  \ 

red  9,E*,pr t  E»$on  err  'error’ 

wrt  704,  ^B1000M320CO *  jcwd  7,'X',»9to  51 

“def*ctb" «cfg  ,if  i*-ljgto  134 

if  M»0 1  if  B-ljlf  L-4j3-*Sjgto  126 

if  WOjlf  B-i»4+S 

if  M»0, 1  f  B»l,b«epipi*t  'Bad  Probe*  ,S»beap,sfs  2 

if  M-0|if -B-ljif  S“3,4^S'}B-*trgto  129  *'  .  'r^:  ' 

if  M»0jif  B»1,3-*S,4-*L 

If  M-0»lf  8*1 , prt  'Launch  Til  oft* , 'Channel' ,S}spc  2 

if  1*1,  if  f  lg£  ,wrt  9,  *U2V*  j  red  9,N}  intCN/tOCO#23>fO }  I  ‘  :0f4-*V,E-*T 

if  i#l,if  f  lg2tf  or  W-I  to  V  by  2,fti  C1100)^AttW,W*il  ,»r  t  705. 2, <1, next  U. 

if  1*1, if  f  lg2,V'*l  $gto  45  .  t 

if  flg2*D,prt  'Program  error **, 'Both  probes" lii<  valid.  »*P®  £|stp 

beep, prt.  'Cad  Probe* »E, beep 
If  E-l,2-‘E,gto  137 

t**E  . 

prt  'Launch  T7  on* , 'Channel  * ,Etspe ■ 2 

if  n-0,lf  B*l»wrt  9, *02V' , rad  9,N,lntCH/1000*20)*G,9»20*lO*V»l*T 
it*  M“0 1  if  B*1 , for  U>3  to  V  by  2,ftl  CltOOi—  *  *IU,W*ll»n*xt  W 
if  Pl»0 1  if  B#l,V-»B,gto  45 

•  r.r  ror  '  »0-*P  • 

if  rom*69  and  ern»4,gto  162  «  _ 

if  rom“71  ar.d  ern-B.gto  162 

if  rotti*?!  r.nd  erri*4,gto  162 

if  ro.t»*71  and  ern»9,gto  162 

if  rom»0  end  ern*39;inv 

if  P«l»prt  'Insert  progrsr!' , 'cassette  and', "press  fl1).' 
i  •  P-t.prt  'When  the  taps'  'stops,  press', M3  and  fit." 
if  P-1, prt  *  Insert  NEW  ^te* ,  "cassette  and* 
if  P*t , if  eri<*38jprt  'press  fl.'jspe  3jbeep,0-»P,sto 
if  P*ljif  er 1>38 jpr t  "press  «2.'»spe  3»beep,C->P»stp 
if  ro.tt-83  and  ern»7,'l**P,9tc  147 
if  rorr*83  and  er  n*8 , 1*F  ,3’.  c  N*' 
if  ron*33  and  ern*G.l-»Pjgtc  147 

if  rom-0  and  ern»42,prt  'Quic. ly  eject' , 'cassette  ond'.’s.ld*  r.ECDR6 
if  rom*0  and  ern-42,prt  'tab  over,', 'Then  replace' ,'Upe  and  type* 
if  rom*0  and  ern-42jprt  *  cent' ,ari jbaep, ape  3,«tp 

if  ron.*0  and  ern»30jp.  I  '.’.sent  program',  "tape  and  type  in',*ldk  C.' 

,  ;f  rcm“0  end  ert»*30jprt  "Then  re-lnsert" , 'Data  Tape  and', 'Press  special* 
,  if  rom*0  and  ern*30,p''t  'funclion  key*, ‘again,  "joeeptstp 


if  rom*0  and  ern*30,p''t  'function  key  , ‘again,  joeeptsip 
jmp  - C161-»rl)  •  *• 

if  erl*9s9to  'A/D' 
if  erl*10 jgto  "A/D* 
if  erl*45,gto  'Cl/420" 

if  erl*4S,gto  "A/D*  t 

"Clock  *  «prt  "Real  fitne  Clock', Ms  Dcw»n,","S*«  Manual  .*  jbeepjspc.  3$s 
" 4/D" .prt  • A/0  Converter '."la  Dcwnj',*See  Manual .' ,beep,spc  3,stp 
•7.1/A2D"  .prt  "Eithc.  Clock  or",'A/9  Is  down.  *  ,  'Sas  Manual.  '  jape  3.stp 
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ENGINEERING  CONVERSIONS  (T7  PROBES) 


0:  b€£r>JdSP  “T? 
Engineering 
Units  Confers io 
n"  I  beep 5 stP 
is  ldk  OSldf  3; Y 
£:  Prt  " INSTRUCT 
I  CHS  FOR" ; "CONV 
ERSIOH  OF" j "DAT 
ft  INTO  ENG  IN-" ; 
"EEP.ING  UNITS:" 
3:  spc  2? prt 
"Load  Ens i nee ri 
ng"  .'"Units  tape 
into" > "Pylon, " 
>  s  p  c  2 

4:  Prt  "To  load; 
thread" ;  "the 
tape  into" j “the 
n a  oh  ire  as"; 
"shown  bv  the" 

5:  prt  "arrows 
and" j ' press 
the  LOAD"; "butt 
on  twice. "> spc 

•7» 

IM 

S:  Prt  "The  LCftC 
button" ;  "shoul 
d  light  up;  "j 
"if  it  does 
not  j  " 

7:  Prt  "Try  pus(- 
ins  it "> "again. 

" >  spc  2 
3:  Prt  "Uhen 
you  have" >"f ini 
shed  loading"; 
"the  tape;  Pres 
s " ; "Cent i nue. " 

9:  spc  2;stp 
10:  prt  "Now 
press  the" ; "ON 
LIME  button"; 
"and  iaake  sure 
it"; "lights 
up.  " 

11:  ort  "Then 
press" ; "Cont inu 
e " 5  spc  2;stP 
12:  wrt  704; "QYQ 
K" ;  Y;  beep;  wait- 
500  5  beep 


PILE  11 

T7;  ENGINEERING  CONVERSIONS 

0:  and  1:  Lines  j 3  and  1  give  the  title  of  the 
program  and  load  the  special  function  keys  from 
file  0  of  the  program  tape.  Line  1  also  loads 
the  value  of  the  number  of  files  already  written 
onto  the  Til  Engineering  Units  Dylon  Tape  into  the 
variable  Y  for  later  use. 

2:  thru  11:  Lines  2  through  11  tell  the  operator 
to  set  up  the  Dylon  for  use  and  give  him  step-by- 
step  instructions  for  loading  the  tape. 

12:  Line  12  uses  the  value  of  Y  which  wa3  read 
from  file  3  of  the  program  tape  to  position  the 
Dylon  tape  after  the  last  previously  recorded 
data  file. 

13:  thru  16:  These  lines  give  more  set-up  infor¬ 
mation  to  the  operator,  telling  him  to - insert  the 
Data  Tape  (indicating  that  Data  Tape  means  the 
cassette  rather  than  the  Dylon)  and  to  press 
CONTINUE  to  initiate  the  Data  Conversion  Program. 

17:  thru  22:  Lines  17  through  22  set  up  the  pro¬ 
gram  for  operation  by  setting  the  error  condition 
to  send  any  error  down  to  a  subroutine  to  be 
evaluated  for  possible  computer  action  before  the 
operator  sees  the  error  message.  Then,  the  in¬ 
ternal  number  format  for  the  calculator  is  set) 
all  variables  are  dimensioned  and  initialized, 
including  the  file  counter  variable,  track  indi¬ 
cator  variable,  and  the  coefficients  for  the  data 
conversion  equation  in  line  30. 

23:  and  24:  Lines  23  and  24  reset  the  error 
condition,  increment  the  file  counter  F,  and  de¬ 
cide  whether  the  tape  has  reached  the  end 

of  track  0  or  the  end  of  the  entire  tape.  Line 
24  prints  an  appropriate  message  if  the  end  of 
the  data  cassette  has  been  reached  and  sends  the 
program  down  to  line  35  to  print  another  message 
to  the  operator. 

25:  and  26:  These  lines  load  the  raw  data  from 
the  current  file  on  the  current  track  into  the 
specified  memory  strings.  The  program  is  then 
sent  down  to  the  subroutine  "write"  to  write  the 
start  time  and  probe  type  onto  the  Dylon  tape. 

(The  probe  type  is  stored  into  F$  as  "conT7  "  to 
indicate  to  persons  analyzing  the  data  from  the 
Dylon  tape  that  this  is  converted  data) . 


13*  be 
"  I  nse 
Tape" 


ep j  prt 
rt  Data 
j  beep?  s pc  ' 

t  "Notes* i 
his  prosra 

ep?  prt 
Tape  Mean 
he  cassett 
not  the 


(i  i  „  _  _ 

>  SPC 


2 


2 

14!  p  r 
"In  t 

15s  be 
"Data 
s " »  "  t 

_  h  ii 

e  f  9 
Dy  Ion 
16*.  be 
"To  i 
press 
5  beep 
1?!  on 
r " 

IS!  fxd  1 1 5  d  i  n 
T*  Cl 43  ?P'I'C93 > 
fil  [48 103  ?  -2*F5 


ep?  dsp 
nit iate j 
Continue" 
S  st- p 

err  "erro 


27:  Line  27  sets  up  the  1000-character  block 
size  for  writing  to  the  Dylon#  and  places  the 
Dylon  into  the  Data  Listen  mode. 

28:  thru  32:  Lines  28  through  32  perform  the 
following  functions  for  each  raw  data  point: 

(a)  Read  the  raw  data  value  into  the  variable  Z. 

(b)  Divide  Z  by  100  and  store  the  result  into  K. 

(c)  Place  K  into  the  conversion  equation  and'  store 
the  result  of  that  calculation  back  into  K. 

(d)  Round  K  to  the  nearest  3  places  past  the  de¬ 
cimal  point,  and  store  the  result  back  into  K. 

(ej  Multiply  K  by  1000  to  make  it  an  integer, 
even  though  it  is  still  followed  by  . 00000000 

(f)  Integer  K  to  get  rid  of  the  following  zeroes. 

(g)  Write  K  onto  the  Dylon  tape  using  the  format 
set  up  in  the  write  subroutine  called  "write5. 

(h)  Store  K  into  the  string  set  u:>  in  line  13 
using  integer  precision. 


0*G 

19!  dirt  El  C 1 43  j 
FI C93  >  G$ [4810] 
20!  19.853258851 
3*85.9843122364 
98*6? 1.28103261 

ft  <1  a  —  ^  4  P 

21!  1.4481456272 
2e-4*D 


33:  and  34:  These  lines  record  the  start  time, 
probe  type,  and  converted  data  into  the  file 
immediately  following  the  raw  data  file  from 
which  the  data  was  read  earlier  in  the  pro¬ 

gram.  Then,  a  file  mark  is  written  on  the  Dylon 
tape  to  mark  the  end  of  the  file,  and  the  file 
counter  for  the  Dylon  tape  is  incremented.  Then 
the  program  is  sent  back  to  line  23  to  read  in 
another  raw  data  file  and  data  conversion  beains. 


22:  1.7714918524 
e-6*E? 1.3270760 
1597e-7*H 

23:  0*P?165*J5 
on  err  "error"? 
2+F*F? if  F > 1 9 5 
if  G=0? 1*G? 0*F? 
st-o  25 

24:  if  F>19?beep 
5  prt.  “Change 
Data  Tape" » "& 
Press  Continue" 
5 spc  2?  etc  35 

25:  trk  GJldf  F> 
TIjPIjAI 

26:  TI*EI? "conT7 
"*FI?  esb. 

" w rite" 

27:  wrt  704j" BIO 
00(132000"?  end 


35:  and  36:  These  lines  are  reached  after  a  raw 
data  tape  has  been  fully  converted  to  engineering 
units.  The  message  "If  finished  with  T7  Data  Con¬ 
versions,  insert  Program  Tape  &  press  f8." 

37:  Line  37  is  reached  if  the  operator  presses 
CONTINUE  after  the  message  printed  in  lines  35 
and  36.  This  indicates  to  the  program  that  the 
operator  has  inserted  another  raw  data  tape  to  be 
converted.  This  line  resets  the  file  and  track 
indicators  and  sends  the  program  up  to  line  23  to 

begin  data  conversions  on  that  tape. 

« 

38:  Line  38  is  the  first  line  of  the  error  sub¬ 
routine  "error".  It  sends  the  program  back  to 
line  33  with  an  illegal  value  for  the  file  coun¬ 
ter  if  an  error  60  has  occurred.  This  means  that 
there  are  no  more  data  files  on  the  current  track, 
so  the  program  will  either  change  to  track  1  or 
display  the  "Change  Data  Tape"  message. 


2y:  for  1=1  to 
4799  by  2 
29:  itfCfiSCI, 1+ 

lmz  • 

38s  2/100-»K?fl+ 
BK+CKt2+DKt3+ 
i EKt4+HKt5*K 
31  s  prnd(K?-3)*K 
? 1000K+KSinUK) 
•>K?  wrt  765.  1  ?  K 5 
f  t  i  (K)*G*n»I  + 
13 

32:  next  ! 

33:  trkH3?rcf  F+ 
l?E*?F$?G*?for 
1=1  to  JJwrt 
785. t ? P ? next  1 
34:  wrt  784 ?"Y" ? 

Y+l*Y?*to  '23 
35:  prt  "If  f ini 
shed" ? "with  T7 
Data" ? "Conversi 
oris  ? "  ?  “  i  nsert 
Pros  raw" 

36:  prt  "Tapejs 
then  press"? 

to.  ?  :=>  P  0  £  ? 

StP 


-2*F58»G? 


sto  23 


33:  "error": if 


rort=65  and  ern= 
75 1 108*P? 2565- 
( I  - 1 i /2s J 5 sto 


39:  if  rott=0 
and  ern=o8525sF 
5  st  o  23 
48:  if  row-0 
and  ern=425prt 
"Rewove  Tape 
and"? "Slide 
RECORD  tab"? 
"over?  then" 

41:  if  row=0 
and  ern=42?prt 
"re-insert  tape 
"?"and  type"? 
"cont " ?  er 1 ? spc 
2?  stP 

42:  Jwp  -(42- 
e  r  1 ) 

43:  Prt  "Til 
Engineer  in  9" ? 
"Conversions" 


39:  thru  41:  If  the  RECORD  tab  on  a  data  cas¬ 
sette  is  not  in  the  RECORD  position  when  the  cal¬ 
culator  tries  to  dump  data  onto  the  cassettes  an  ’ 
error  42  occurs.  Lines  39  through  41  are  execu¬ 
ted  only  if  an  error  42  condition  is  present. 

They  print  the  message  "Remove  Data  Cassette  and. 
Slide  RECORD  tab  over,  then  reinsert  tape  and 
type  cont  erl".  In  this  message,  erl  will  be 
printed  as  the  number  of  the  line  in  which  the 
error  42  occurred.  The  program  is  stopped  at  this 
point  to  await  operator  action. 


42:  If  ar*  error  has  occurred1  to  send  the  program 


down  to  the  subroutine  "error",  but  that  error 


is  not  present  in  the  subroutine,  line  42  sends 
the  program  back  up  to  the  same  line  in  which  the 
error  existed  without  clearing  the  on  err  condi¬ 
tion.  In  this  way  the  error  message  is  displayed 
to  the  operator  and  the  program  is  stopped  so 
that  he  may  take  appropriate  action. 


43:  thru  48:  Lines  43  through  48  tell  the  opera¬ 
tor  how  to  set  up  for  Til  data  conversions,  tt 
is  necessary  to  do  this  in  the  T7  data  conversion 
program  because  memory  positions  in  the  Til  pro¬ 
gram  are  critical,  so  the  more  that  can  be  done 
before  that  program  is  loaded,  the  better.  They 
tell  the  operator  to  load  the  Til  Conversions 
Tape  onto  the  Dylon,  insert  the  program  tape, 
record  the  value  of  the  number  of  files  used  so 
far  on  the  T7  Data  Conversions  tape  in  file  3  of 
the  program  tape,  and  then  direct  him  to  erase 
all  variables  and  load  program  12  (Til  Engineer¬ 
ing  Conversions) . 


49:  thru  51:  Lines  49  through  51  comprise  the 
"write"  subroutine  used  to  write  the  start  time 
and  probe  type  onto  the  T7  engineering  units 
tape  on  the  Dylon.  They  write  the  unlisten  com¬ 
mand  to  the  Dylon,  set  a  14-character  block  size, 
write  the  start  time  into  that  block,,  set  a  6- 
character  block  size,  write  the  "conT7  "  probe 
type  into  that  block,  set  the  format  for  writing 
the  converted  data  onto  the  Dylon,  and  return  th< 
program  to  line  27. 


*NOTE:  It  will  be  noted  that  2  separate  strings 
were  used  to  bring  the  raw  data  into  memory  end 
store  tho  converted  data.  Due  to  the  nature  of 
:he  string  variable,  it  is  impossible  to  read  a 
raw  data  value,  convert  it,  and  restore  it  in  its 
new  form  to  the  original  string  position. 


44s  beep?dsp 
"Insert.  P  roe  ran 
Tape" 5  stP 
45:  t  rk  15  ref  3? ■ 
YJtrk  9?  ref  3?Y 
46:  prt  "Press"? 
"ERASE"? "m"? 
"EXECUTE"? "ERRS 
E" ? " k" » "EXECUTE 

•i  * 

4?:  prt  "Type 
in: ", " "? "Idpl2“ 
?""?"and  press" 

, "EXECUTE" ?spc 
2  ?  st  p 

48:  "write" *c«d 
7? "?" ?  wrt  704? 
"B14W1 " ? cwd  7? 
"X"? wrt  705? E* 
49:  wrt  704? "B9W 
1 " ?  end  7  ? "  X "  ? 
wrt  785?F$ 

50:  f«t  l?z?f6.0 
?  ret 
*24865 


Cross  Reference  for  Variables  in.  File  11 


a 

20 

38 

B 

20 

30 

C 

20 

38 

0 

21 

30 

E 

22 

30 

F 

IS 

23 

23 

•TO 
&  0 

23 

24 

25 

33 

3? 

39 

G 

18 

23 

23 

25 

33 

37 

H 

22 

30 

I 

2S 

29 

29 

31 

31 

32 

33 

33 

38 

J 

23 

33 

38 

K 

30 

30 

30 

30 

30  ' 

30 

30 

31 

31 

31 

31 

31 

31 

31 

31 

P 

23 

33 

38 

Y 

1 

12 

34 

34 

45 

45 

2 

29 

30 

a* 

18 

25 

29 

E* 

19 

26 

33 

48 

■ 

F* 

49 

19 

26 

33 

GI¬ 

19 

31 

33 

F'* 

18. 

•  25 

T* 

18 

25 

26 

FILE- 12 

Til  ENGINEERING  CONVERSIONS 


0!  1  df  3  ?  Y  >  w r t 
704 j  ••QYQK"  >  Y5 
Idk  15 

l:  prt  "Insert- 
Data  Tape"5spc 
2 j  stP 

2:  fxd  11 5  din 
TIC143  >P$C93  > 
fi$  C10S003  >  E$  C14 
3  ?  F$  C63  >  G$  C 1 0 8 © 
93  5  lS->  J5  Q-»K 
3!  19.8532538513 
*fii .9S431223649 
8*B  5  1. 28 1032.6 10 
4e-3*C 

4:  1.44814562722 
e-4*D 

5:  1 . 7714918524e 
-6->E  5  1 . 32707601 
59?e-7*H 
6’  0 *> P 5  1 65 ->Q  j  on 
err  "error" >J+ 

2 -> J 5  if  J > 2 3 5  if 
K=05  1+KS20+JJ 
'  et-o  8 

7:  if  J>23 5  prt 
"Insert  New 
Tape? " J spc  2? 
■gto  18 

8:  trk  KJldf  J> 
T$»P#»*L* 

9:  T$4E$5 "conTl 1 
"*F$ 5  ssb 
"  w  r  i  t-  e " 

ID:  i-i rt  7o4 ?  “810 
001132008“  5  end 
?» 


0. :  Line  0  loads  the  value  of  the  number  of  files 
written  onto  the  Dylori  Engineering  Conversions 
tape  so  far  into  the  variable  Y,  and  then  sets  up 
the  Dylon  to  the  file  immediately  following  the/ 
last  file  written. 

1 :  Line  1  tells  the  operator  to  insert  the  data 
cassette  and  stops  the  program  to  await  a  CON¬ 
TINUE  from  the  operator. 

2 :  thru  5 :  Lines  2  through  5  initialize  and  dir 
tension  all  needed  variables,  including  the  file 
counter  variable,  the  track  indicator  variable, 
and  the  coefficients  for  the  data  conversion 
equation. 

6 :  and  7 :  These  two  lines  set  the  on  error  con¬ 
dition  to  send  any  error  down  to  a  subroutine 
called  "error"  so  that  the  computer  may  possibly 
take  action  on  the  error  without  making  the  oper¬ 
ator  look  up  the  error  and  decide  what  to  do. 

Then,  the  file  counter  variable  J  is  incremented 
and  tests  are  performed  to  make  sure  that  the  end 
of  a  track  has  not  been  reached.  If  the  end  of 
track  0  is  reached,  the  computer  changes  itself 
to  track  1  and  starts  again.  If  the  end  of  track 
1  has  been  reached,  the  message  "Change  Data  Tape' 
is  printed  and  the  program  is  sent  down  to  line 
18  so  that  a  further  message  may  be  printed  to 
the  operator. 

J 

8  j  and  9 :  Lines  8  and  9  load  the  raw  data  from 
the  current  file  on  the  current  track  into  mem¬ 
ory  strings.  The  probe  type  and  start  time  are 
then  put  into  the  strings  used  for  the  converted 
data,  with  the  prolje  type  being  changed  to  "con 
Til''  to  indicate  to  persons  analyzing  the  data 
from  the  Dylon  tape  that  this  is  converted  data. 
The  program  is  then  sent  down  to  the  subroutine 
called  "write"  to  write  the  start  time  and  new 
probe  type  onto  the  Dylon  tape. 

10 :  Line  10  sets  up  the  block  size  for  writing 
the  converted  data  onto  the  Dylon  tape  and  puts 
the  Dylon  into  data  listen  mode. 


11:  for  1=1  to 
10759  by  2 
12:  itflfil Cl .» 1  + 
13  )*Z 

13:  2/i98*X5 fl+ 
BX+CXt2+DXt3+ 
EXt4+HXt5*X 
14:  p rnd  C X > -3) *X 
5 1O00X*X? int (X) 
■>X?wrt  705.  1>X» 
ft i  (XHG$CI»I  + 
13 

15:  next-  I 
16:  i r k  KJrcf  J+ 
l»E$»F$iG$*for 
1  =  1  to  Q 5 w r t 
70S.  1  .*  P >  next  I 
17:  wrt  704 f "Y"? 

Y+HYS?to  6 
18:  p  r  t  "If  f i n i 
shed" > "insert "» 
"Pro? raw  tape"* 
"and  press  f9." 

?  StP 

19:  1 S -> J *  0 K 5 
?to  6 

20:  "error":  if 
ro."i=0  ond  ern  =  6 
0 1  25*  J  5  ?  v  o  6 


2 

11:  thru  15:  Lines  11  through  15  perform  the 
following  functions  for  each. raw  data  point: 

(a)  Read  the  raw  data  value  into  the  variable  Z. 

(b)  Divide  Z  by  100  and  store  the  result  into  X; 

(c)  Place  X  into  the  conversion  equation  arid 
store  the  result  of  that  calculation  back  into  X. 

(d)  Round  X  to  the  nearest.  3  places  past  the  dec¬ 
imal  point  and  store  the  result  back  into  X. 

(e)  Multiply  X  by  1000  to  make  it  an  integer, 
even  though  it  is  still  followed  by  .00000000. 

(f )  Integer  X  to  get  rid  of  the  following  zeroes. 

(g)  Write  X  onto  the  Dylon  tape  using  the  format 
set  up  in  the  write  subroutine  called  "write". 

(h)  Store  X  into  the  string  set  up  in  line  18 
using  integer  precision  storage. 

16 i  and  17:  These  lines  record  the  start  time, 
new  probe  type,  and  converted  data  into  the  file 
immediately  following  the  raw  data  file  from  .. 
which  the  original  data  was  read  earlier  in  the 
program.  Then,  a  file  mark  is  written  on  the  Dy¬ 
lon  tape  to  mark  the  end  of  that  data  file  and 
the  file  counter  for  the  Dylon  tape  is  increment¬ 
ed.  Then  the  program  is  sent  back  to  line  6  to 
read  in  anothe  raw  data  file  and  start  converting 
it. 

18:  Line  18  is  reached  after  a  raw  data  tape  has 
been  fully  converted  to  engineering  units.  The 
message  "If  finished  with  Til  Data  Conversions, 
press  f 9. "  is  printed. 

19 :  Line  19  is  reached  if  the  operator  presses 
CONTINUE  after  the  message  printed  in  lines  7  and 
18.  This  indicates  to  the  program  that  the  oper¬ 
ator  has  inserted  another  raw  data  tape  to  be 
converted.  This  line  resets  the  file  and  track 
indicators  and  sends  the  program  up  to  line  6  to 
begin  data  conversions  on  the  new  tape. 

20 :  Line  2Q  is  the  first  line  of  the  error  sub¬ 
routine  "error".  It  sends  the  program  back  to 
line  7  with  an  illegal  value  for  the  file  counter 
if  an  error  60  has  occurred.  This  means  that 

no  more  data  files  are  on  the  current  track. . 

so  the  program  will  either  change  to  track  1  or 
display  the  "Change  Data  Tape"  message. 


21!  if  ron=65 
and  ern=7J1100* 
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21:  Line  21  is  the  line  which;  ends  the  subrou¬ 
tine  called  "error".*  Subroutine  "error"  checks 
the  error  number,  ROM,  and  error,  line  indicators 
and  performs,  operations  for  those  errors  covered 
in  the  subroutine  which  match  the  current  error 
condition  in  the  calculator.  If  none  of  the 
error  conditions  covered  in  the  subroutine  match 
the  current  error  condition  in  the  calculator, 
line  21  sends  the  program  back  up  to  the  line 
where  the  error  existed  without  clearing  the  oh 
error  condition.  In  this  way  the  error  message 
is  displayed  to  the  operator  and  the  program  is 
stopped  so  that  he  may  take  appropriate  action. 

22 :  Line  22  records  the  value  of  the  number  of 
Til  converted  data  files  which  have  been  written 
onto  the  Dylon  tape  into  file  4  on  the  program 
tape.  The  program  is  then  stopped  and  ended. 

23i  thru  26>:  Lines  23  through  26  comprise  the 
"write"  subroutine  used  to  write  the  start  time 
and  probe  type  onto  the  T7  engineering  units  tape 
on  the  Dylon.  They  write  the  unlisten  command  to 
the  Dylon,  set  a  14-character  block  size,  write 
the  data  listen  command  to  the  Dylon,  write  the 
start  time  into  the  14-character  block,  set  a  6- 
character  block  size,  write  the  MconT7  "  probe 
type  into  that  block,  set  the  format  for  writing 
the  converted  data  onto  the  Dylon,  and  return  the 
program  to  line  10 . 

*N0TE:  It  will  be  noted  that  2  separate  strings 
were  used  to  bring  the  raw  data  into  memory  and 
store  the  converted  data.  Due  to  the  nature  of 
the  string  variable  as  it  exists  in  the  982 5A 
Calculator,  it  is  impossible  to  read  a  raw  data 
value,  convert  it,  and  restore  it  in  its  new  form 
in  the  original  string  position. 


TEMPERATURE  PROFILE  OFFSET  PLOTTING  ROUTINE 
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0:  beef>>dsp  "Ins 
ert  Data.  Gasset 
te"5stf> 
l:  fxd  05  of  *  5 
8*H5  0*1  5  0*J? 
58*M5  -58*N5 10*P 
5  0*Q5 l*R52t*X5 
sf ■?  35sfs  10J 
sf  ■?  11 

2:  din  fl*C143* 
B*C33*F$C13 » 
JIC143 »K* C33 » 
L$E13  >N*E33 5 
psc  7075 wrt 
707* "Vfl" 

3:  din  C*C143> 

D$  C93  >  E$  C48183  * 
Gi  C143  »  H*  C33 > 

1$  C1080O3 5 "* 
"*F* 

4  s  psc  7075  pc  It*  5 
wrt  707 »" i p1 O00 
>7O0> 10300*8100 
" 5  f nt  l*z»f6.0 


FILE  13  .  , 

T7/T11  OFFSET  PLOTTING  ROUTINE: 

“  '  J 

0:  Line  0  displays  the  title,  of  the  program  and 
stops  the  program  to  await  a  CONTINUE. 

1:  Line  1  uses  the*  fxdg  command  to  set  the  calr 
culator  up  into  an  integer  format;  cfg  clears  all 
flags  in  the  calculator.  The  rest  of  the  line 
initializes  various  variables  and  flags.* 

2:  Line  2  dimensions  all  strings  used  in  the  pro* 
gram  except  those  strings  to  be  used  in  loading 
the  data  to  be  plotted  from  the  cassette  or  Dylon. 
The  psc7g7  command  tells  the  calculator  that  it- 
may  talk  to  a  plotter  on  the  address  707;  the 
command  also  partially  clears  the  plotter  in*  that' 
it  assures  that  the  plotter  will  accept  commands*. 
The  wrt  707,"VA"  writes  a  command  to  the  plotter 
using  the  701  address .  The  VA  stands  for  Veloci¬ 
ty  Adapt  and  tells  the  plotter  to  adapt  its  pen  1 
velocity  to  the  approximate  output  speed  of  the 
calculator.  This  assures  maximum  efficiency  in 
plotting.* 

3;  Line  3  dimensions  the  strings  into  which  the 
data  to  be  plotted  from  the  cassette  or  Dylon 
will  be  loaded.  The  line  also  inputs  the  initial 
character  *  into  the  string  variable  F$,  which 
will  be  used  later  in  the  program  to  delineate 
the  exact  range  of  any  given  probe  along  the  Y  or 
temperature  axis  of  the  plot.* 

4:  Line  4  writes  the  psc707  command  described  in' 
the  documentation  of  line  2;  writes  the  pclr  com¬ 
mand  to  fully  clear  the  plotter;  and  then  writes 
the  i£. . .  command .  The  i£  command  sets  up  the 
absolute  plotting  area  for  scaling  purposes. 


*NOTE:  Immediately  following  the  documentation 
of  this  plotting  routine  is  a  cross-reference 
listing  all  variables  used  in  the  program  and  the 
line  numbers  in  which  they  occur.  Also  included 
is  a  list  of  each  variable  and  string  variable 
and  what  each  is  used  for  in  the  program. 

Each  flag  in  the  program  is  then  documented  in  a 
similar  manner.  These  listings  are  provided  for 
ease  of  alteration  should  the  program  need  to  be 
changed  to  fit  the  individual  user's  needs. 
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5:  ent  "Plot 
frow  Dylon(8) 
or  cass. ( H ?" ? O 
6:  if  0=8?sto 
"Dylan" 

?:  dsp  "Start 
tiwe  of  A'irst 
T7  probe  to"5 
wait  3008 
8:  prt  "If  not 
o.ppI  i-"  ?  "cable? 

type  in  0"> 
spc  2 

9:  ent  "be  Plott 
ed?(i.e.*89i02: 
14!  35! 23) " ?  R$ 
10!  dsp  "Start 
ti.we^of  first 
Til  probe  to"? 
wait  2088 
11:  ent  "be  plot¬ 
ted?  (Start 
tine  or  0)"?J$ 
12:  ent  "Total 
,  no.  of  T7’s  to 
be  plotted?" ?fi 
13!  ent-  "Total 
no.  of  Til’s 
to  be  Plotted"; 

»B 

i4i  if  a+B>5; 
beepJdsp  "Only 
5  probes  nay 
be  Plotted."? 
beepJwait  2008? 
sto  7 

15!.  if  fi+B=l?  if 
fi=0? -Ho  "Til" 

16!  if  fl+B=l» 

9to  "T7" 

17!  if  B=8  or 
fl=8?<no  "erid" 
13!  beepJdsp 
"ORDER  OF  PLOTT 
ING“ ?  beep?  wait 
2008?  sf  2 


5:  and  6:  Line  5  asks  the  operator  to  enter  a  0 
if  he  wishes  to  plot  from  the;  Dy Ion  Tape  or  a  1 
if  he  wishes  to  plot  from  the  cassette.  The  num¬ 
ber  that  he  enters  is  placed  into  the  variable  0. 
Line  6  sends  the  program  down  to  the  subroutine 
called  "Dylon"  if  the  operator  entered  a  0, 

7:  thru  11s  Lines  7  through  11  ask  the  operator 
to  enter  the  start  times  of  the  first  T7  and  the 
first  Til  probes  to  be  plotted.  Line  8  prints  a 
message  telling  him  that  if  either  of  the  two 
questions  is  inapplicable  (meaning  that  he  is  on¬ 
ly  going  to  plot  one  type  of.  probe) ,  he  should 
enter  a  zero  for  the  start  time  of  the  inappli¬ 
cable  probe.  The  start  time  of  each  probe* is 
recorded  in  a  string. 

12:  and  13:  Lines  12  and  13  ask  the  operator  to 
enter  the  total  number  of  T7  and  Til  probes,  re¬ 
spectively,  wnicn  he  wishes  to  plot. 

14:  Line  14  sends  the  program  back  to  ask  the 
same  questions  asked  in  lines  12  and  13  again  if 
the  total  number  of  probes  to  be  plotted  is  over 
5.  Since  the  program  is  only  designed  to  plot 
5  probes  on  one  plot,  the  message  "Only  5  probes 
may  be  plotted."  is  also  printed. 

15:  and  16:  Lines  15  and  16  decide  whether  or 
not  the  total  number  of  probes  to  be  plotted  is 
equal  to  one.  If  it  is,  the  program  is  sent  di¬ 
rectly  down  to  either  the  T7  or  Til  routines 
which  search  the  cassette  for  the  proper  probe. 
This  bypasses  a  large  amount  of  the  program  which 
has  no  meaning  on  a  single-probe  plot. 

17:  Since  the  operator  may  want  to  plot  only  one 
type  of  probe,  but  still  want  to  plot  more  than 
one  probe  of  that  type,  line  17  bypasses  the 
ORDER  OF  PLOTTING  routine  and  sends  the  program 
directly  down  to  plot  the  scaling  grid, which  will’ 
be  explained  later. 

18:  Line  18  displays  the  ORDER  OF  PLOTTING  mes¬ 
sage  and  sets  flag  2  to  indicate  later  in  the 
program  that  more  than  one  type  of  probe  is  to  be 
plotted. 


19s  ent  "Is  firs 
t  probe-  a  T? 
or  T.l  1?"  >  B$ 

20!  if  B$="T11"5 
sf-3  65-no  22 
21*  ent  "Plot 
how  «any  T7 
probes?" >  C 
22!  ent  "P:lot 
how  Many  Til 
probes?" >  0 
23!  if  C+Dsfl+65 
no  "srid" 

24!  sf-9  3>ent 
"Then  how  Many 
T7  probes?"»E 
25!  if  C+D+Esfl+ 
B5no  "nid" 

26!  sfg  45ent 
"Then  how  Many 
Til  probes?"jF 
27!  if  C+D+E+  . 
F=R+B5no  "grid 

it 

2Si  st's  5Sent 
"Then  how  Many 
T7  probes  next? 
“  i  K 

29!  “grid"ibeep5 
dsp  "TEMPERATUR 
E  SCALE  (Scaled 
down) " » wait 
20005  beep 
30i  psc  70?»pclr 
5 wrt  707> " ipl00 
0 )  700  J  103001 
8100" 

31 !  scl  0  >  1 O 0  J  0  J 
105csiz  l.SJpen 
32!  pit  -4»3» -25 
i  p  1 1  - 1 » 0  5  i  p  1 1 
2 >  05  pen 

33:  Pit  — 4 >  4 > -25 
i  p  1 1  - 1  ?  0  5  i  p  1 1 
2>  05  pen 

‘  34!  pit  -4»5j -25 
ip  It  -1j 05 ip  It 
2»05pen 


19:  and  20:  Lines  19  and  20  ask  the  operator  if 
the  first  probe  to  be  plotted  is  a  T7  or  a  Til. 
.The  operator's  answer  is  input  into  the  string 
variable  B$.  If  B$=Tll,  flag  6  is  set  and  the 
program  is  sent  down  to  line  22  to  ask  the  opera¬ 
tor  how  many  Til  probes  he  wishes  to  plot  first. 

21:  thru  28:  These  lines  ask  the  operator  how 
many  of  each  probe  type  he  wishes  to  plot  and  in 
what  order.  After  each  entry  by  the  operator, 
the  program  tests  to  see  if  the  total  number  of 
probes  that  he  has  so  far  described  in  this  sec¬ 
tion  is  equal  to  the  total  number  of  probes  that 
he  specified  in  lines  12  and  13.  If  the  total 
number  of  probes  described  in  this  section  does 
equal  the  overall  total,  the  program  is  immedi¬ 
ately  sent  down  to  the  subroutine  entitled  "grid^. 

29:  Line  29  displays  the  message  TEMPERATURE 
SCALE  (Scaled  down)  while  that  temperature  scale 
is  being  drawn  by  the  next  several  program  lines'. 

30:  Line  30  is  identical  in  content  and  function 
to  line  4. 

31:  This  line  sets  up  a  scale  on  the  absolute 
plotting  area  defined  in  line  30.  This  scale 
runs  from  0  to  100  on  the  X-axis  and  from  0  to  10 
on  the  Y-axis.  The  character  size  is  set  with 
the  csiz  1.5  statement  at  1.5%  of  the  total  height 
of  the  scaling  area.  The  pen  command  lifts  the 
plotter  pen. 

32:  thru  43:  Lines  32  through  43,  without  going 
into  detail  on  each  command,  plot  a  scaled-down 
Y-axis  labeled  from  10  to  30  degrees  Centigrade. 
This  Y-axis  is  drawn  on  the  extreme  left-hand 
edge  of  the  plotting  area  (the  paper) . 

44:  and  45:  Lines  44  and  45  label  the  Y-axis 
just  drawn  with  a  °C,  showing  that  this  scale 
ranged  from  10  to  30  degrees  Centigrade. 

46:  Line  46  plots  a  point  to  the  far  right  of 
the  paper  (lifting  the  pen  beforehand) ,  then  the 
pen  command  raises  the  pen  in  preparation  for  the 
next  program  line.  If  there  is  only  one  probe  to 
be  plotted,  this  scaled-down  Y-axis  will  not 
appear  on  the  plot.  The  purpose  of  this  line  is 
to  give  the  operator  a  clear  view  of  the  scaled- 
down  axis  so  that  it  may  be  used  to  answer  the 
question  put  forth  to  him  in  the  next  program 
line. 
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35!  pit  -4?6»-2> 
iplt  -1 j  05 iPlt  . 
2> Of  pen 

36!  pit  -4 >  7 > -2 ? 
iplt  -l>0>iplt 
2>0>pen 

37!  pit  —  4 > 3 > 1 
38!  pit  —  4 >  7 >  25 
pen 

39!  pit  -9>  3> 1 5 
lbl  ”10" 

40!  Pit  -9>  4>  1 5 
lbl  ”15" 

41 !  pit  -9» 5>  1 » 
lbl  "20" 

42!  pit  -9> 6» 1 5 
lbl  "25" 

43!  pit  — 9 > 7 > 15 
lbl  "30" 

44i  pit  -7»2. 7* 
li lbl  "o" 

45i  pit-  -5.6j 
2.55* 1 S lbl  "C" 
46!  Pit  90* 10* 15 
pen 

47!  beepjent 
"Offset  between 
plots  in  de*re 
es?"  >  G 
48!  if 

G> 1/ (U-l ) *205 
prt  "Too  Much 
offset  > "> "Max. 
offsets! "Jsto 
"Max" 

49!  if  8=8><no 
"decide" 

50!  -no  "T7"i  if 
f ls6»  sto  "Til" 

5 1 1  sol  0 > 750 »  0 > 
1 105  c-siz  1.5 

tr 


47 :  Line  47  asks  the  operator  how  much  he  wishes 
to  offset  each  plot  of  a  probe  from  the  next  plot* 
This  number  is  given  in  degrees  Centigrade  and 
is  an  offset  along  the  Y-axis  only. 

48:  There  are  necessarily  some  limitations  on 
the  amount  of  offset  allowed  between  plots.  But 
the  offset  allowable  is  different* depending  upon 
the  number  of  probes  to  be  plotted.  If  the  maxi¬ 
mum  offset  allowed  is  exceeded  by  the  operator's 
entry  in  line  47,  the  message  "Too  much  offset, 
max.  offsets:"  is  printed  and  the  program  is 
sent  down  to  a  subroutine  called  "max"  which 
lists  the  maximum  offsets  allowed  for  1,2, 3, 4,  or 
5  probes.  The  maximum  offset  is  determined  by 
the  equation:  1/(W-1)*20,  where  W  is  the  total 
number  of  probes  to  be  plotted. 

49:  If  the  operator  chose  to  plot  from  the  Dylon 
tape,  the  program  was  sent  down  much  earlier  to 
the  subroutine  called  "Dylon".  The  subroutine 
"Dylon"  in  turn  sends  the  program  back  up  to  plot 
the  scaled-down  Y-axis,  or  "grid".  In  line  49, 
if  the  operator's  original  choice  was  to  plot 
from  the  Dylon  tape,  (indicated  by  0=0) ,  the  pro¬ 
gram  is  sent  down  to  the  subroutine  called  "de¬ 
cide"  . 

50:  If  the  operator  is  plotting  from  the  cas¬ 
sette,  line  50  is  reached.  It  sends  the  program 
down  to  subroutine  "T7",  assuming  that  the  firyt 
probe  to  be  plotted  is  a  T7  probe,  unless  flag  6 
has  been  set.  In  that  case,  the  program  is  sent 
down  to  subroutine  "Til",  since  flag  6  indicates 
that  the  first  probe  to  be  plotted  is  a  Til  probe 
(see  documentation  of  line  20) » 

51:  Line  51  is  reached  through  subroutines  "T7" 
and  "Til"  only  after  the  correct  probe  to  be 
plotted  has  been  found  on  the  tape.  (Line  51  is 
reached  through  the  subroutines  "T7Dy "  and  "Tll- 
DY"  if  the  operator  is  plotting  from  the  Dylon) . 

It  sets  a  new  scaling  factor  from  0  to  750  on  the 
X-axis  and  from  0  to  110  on  the  Y-axis.  The 
character  size  is  reset  to  the  value  of  1.5%  of 
the  total  scaling  area. 
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if 
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57: 
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B*F$ 

61: 
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£  O  • 
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J=1 5  dsp 

"Change  peris 
and  press  Conti 
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52;  and  53;  Lines  52  and  53  determine  the  Y 
value  of  the  start  point  of  the  probe  labeling 
statement.  Since  up  to  five  probes- may  be  plotr 
ted  on  a  single .sheet  of  paper,  each  of  them  must 
be  labeled  as  to  probe  type  and  start  time.  The 
labeling  follows  this  format; 

PROBE  X - 07: 24; 15; 45; 29  TY  ,  where  X  is  a 

character  (either  ^.,X,  +  ,H,  or  $) ;  07:24715:45:29 
is  the  probe  start”trme  Ey  month,  aay',  hour,  min- 
ute,  and  second;  T  remains  T;  and  Y  is  either  7 
or  11  depending  upon  the  type  of  tKat  particular 
probe.  The  characters  which  X  represents  will  be 
discussed  during  the  documentation  of  the  subrou-, 
tine  called  "offset”.  Only  3  of  these  probe 
labels  may  be  placed  across  the  paper,  so  lines 
52  and  53  decide  whether  to  put  the  current  libel 
on  the  first  upper  row  (J  is  less  than  4)  or  the 
lower  row  (J  is  greater  than  3).  Thus,  the  Y 
value  of  the  probe  label  is  either  105  or  100. 
This  Y  value  is  represented  by  L  in  the  program. 

54:  Line  54  positions  the  plotter  pen  to  the 
correct  coordinates  for  labeling  the  probe  type 
and  start  time  for  the  current  probe. 

55:  Line  55  labels  the  probe  type  and  start  time 
as  described  in  the  documentation  of  lines  52  and 
53.  The  information  for  the  labeling  of  the  \ . 
probe  has  already  been  stored  in  memory  strings 
and  is  retrieved  from  those  strings  for  labeling 
purposes . 

56:  thru  58:  These  lines  determine  the  new  X 
value  for  the  probe  label  start  point  using  the 
variable  J  (number  of  probes  already  plotted) 
just  as  the  value  of  the  new  Y  coordinate  of  the 
probe  label  start  point  was  determined  in  lines' 

52  and  53.  This  X  value  goes  into  the  variable  N. 

59:  thru  62:  Lines  59  through  62  determine  the 
character  represented  by  X  in  the  documentation 
of  lines  52  and  53.  (See  documentation  of  subrou¬ 
tine  "offset"  for  full  details  on  these  charac¬ 
ters  and  their  usage  in  this  program) . 

63:  If  J=1  (indicating  the  first  probe),  line  63* 
tells  the  operator  to  "Change  pens  and  press 
CONTINUE",  it  stops  program  operation  to  allow 
him  to  change  the  pen  if  he  so  desires.  The  rea¬ 
son  for  the  J=1  restriction  is  that  the  main  grid 
used  for  plotting  will  be  plotted  at  this  time  if 
J=l;  if  the  main  grid  has  already  been  plotted* 
there  is  no  need  for  the  operator  to  change  pens 
since  the  probe  label  and  plot  are- the  same  color. 
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64:  Line  64  is  identical  to  lines  4  and  30. 

65:  Line  65  sets  up  a  scale  from  0  to  750  on  the 
X-axis  and  from  10  to  55  on  the  Y-axis.  fxdff 
sets  a  fixed  decimal  point  in  the  calculator  with 
0  digits  past  that  decimal.  (NOTE:  All  internal 
calculations  will  still  be  done  to  the  highest 
number  of  digits  available  in  the  calculator)  . 

The  current  character  size  statement  is  new  csiz2, 
which  sets  the  character  size  at  2%  of  the  total 
scaling  area.  If  flag  7  is  set,  the  program  is 
sent  down  to  line  82.  Flag  7  will  be  set  lacer 
in  the  program  and  is  an  indicator  to  the  program 
that  the  main  plotting  grid  has  already  been 
drawn . 

66:  Line  66  is  reached  if  flag  7  has  not  been  .. 
set,  indicating  that  the  main  axes  and  grid  have 
not  yet  been  drawn.  This  line  draws  an  X-axis 
ranging  from  0  to  750,  crossing  the  Y-axis  at  a 
Y  value  of  10,  with  tic  marks  every  50  units,  and 
each  of  those  tic  marks  labeled  with  a  number. 

67:  and  68:  These  lines  label  the  X-axis  just 
drawn  with  the  label:  Depth 

(meters) 

69:  Line  69  draws  the  Y-axis.  It  crosses  the 
X-axis  at  an  X  value  of  0,  has  no  tic  marks,  and 
ranges  from  10  to  50  with  no  points  numbered. 

The  Y-axis  cannot  be  numbered , since  the  offset 
will  make  it  a  sliding  scale. 

70:  thru  72:  These  3  lines  draw  the  opposite 
sides  of  the  rectangle  started  by  the  X  and  Y 
axes.  The  pen  is  then  picked  up  off  the  paper. 

73:  Line  73  displays  the  "Change  pen..."  message 
and  stops  program  execution  to  await  a  CONTINUE 
from  the  operator. 

74:  Line  74  sets  a  line  type  of  2  (dashed  line) 
in  the  plotter  and  also  sets  a  pattern  length 
(the  length  of  one  dash  and  the  space  after  it) 
of  2%  of  the  diagonal  distance  between  the  bottom 
left  and  upper  right  points  of  the  scaling  area. 

75:  thru  77:  These  lines  draw  dotted  lines  up¬ 
ward  from  each  tic  mark  to  the  top  of  the  grid. 
Again,  lines  are  not  drawn  horizontally  to  cross- 
hatch  this  grid  because  of  the  sliding  scale  on 
the  Y-axis. 


78:  line  5  pit-  8j 
105  1 

79:  beepldsp 
"Change  pen 
and  press  Conti 
nue. " 5  beep?  st p 
5 i f  f 1975  sto  82 

80:  beepJdsp 
"Do  you  wish 
to  stop  after 
the "5  wait  2508 

81:  ent  "plot, 
of  each  probe? 

(yes  or  no) "5 
M$5 if  M$= "yes " 5 
s  f  9  12 

82:  if  f  1975  if 
J> 1 5  of  s  8 5  ( J~ 
1)*G 

83:  if  f  1975  if 
0=1 5  9 1 0  "T7plt" 
5  if  D$="oonTl  1 
"59to  "TllPlt 

84:  if  f  1  975  if 
0=85 9 to  "T7Dypl 
t " 5 i f  0s=  "conT 1 
1 " 5  9 1 0  "TllDypl 
t" 

85:  "of f set ":sf9 
7 

86:  if  8 + 8 # 5 5 
9t  0  "four" 


78:  The  line  command’  with  ho  parameters'.  foilowr>^ 
ing  it  resets  the  line  condition  back  to  'a.  horinai 
line  (no  dots’1  or  dashes)'.  The  pit  0,10,1  •state-: 
ment  positions  the  pen  at  the  origin  of  the'  plot- 
ting  axes. 


79:  Line  79  once  again  allows  the  operator  to 
change  pens. 


80:  and  81:  These  lines  ask  the  operator  "Do  you 
wish  to  change  pens  after  each  probe?  (yes  or 
no)".  If  the  operator  answers  yes,  flag  12  is 
set  for  use  later  in  the  program.  t  > 

82:  Line  82  is  the  offset  statement  and-  is  cart 
ried  out  only  if  the  grid  has  already  been  drawn, 
and  if  the  probe  about  to  be  plotted  is  at  least 
the  second  probe  (J  greater  than  1) .  The  scale 
is  offset  from  the  origin  0  units  on  the  X-axis 
and  J-l  tiroes  G(the  offset  which  the  operator 
entered  in  line  47) units  along  the  Y-axis. 


83:  Line  83  sends  the  program  down  to  either  the 
subroutine  "T7plt"  or  "Tllplt"  depending  upon  the 
probe  type  of  the  current  probe.  However,  two 
conditions  must  first  be  met;  flag  7  must  be  set 
showing  that  the  main  grid  has  been  drawn,  and 
0  must  equal  1  showing  that  the  operator  has 
chosen  to  plot  from  the  cassette  lather  than  thfe» 
Dy Ion . 


84;  Line  84  has  the  same  function  as  line  83 
except  that  line  84  checks  to  see  if  0=0,  indi¬ 
cating  that  the  operator  has  chosen  to  plot  from 
the  Dylon  tape.  The  program  is  then  sent  down 
to  either  subroutine  "T7Dyplt"  or  "TllDyplt". 


85:  Line  85  is  the  first  line  of  subroutine  "off¬ 
set".  It  sets  flag  7  (indicating  to  the  program 
that  the  main  grid  has  been  drawn) ,  since  after 
the  completion  of  this  subroutine  the  grid  will 
have  been  completed. 


86:  Line  86  tests  to  see  if  the  total  number  of 
probes  to  be  plotted  is  equal  to  5.  If  it  is  not 
the  program  is  sent  down  to  subroutine  "four"  to 
be  tested  there. 
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87?  wrt  7@7»"sw* 
"5<?sb  "Plot" 

88!  wrt  707»"smX 
"JP+G+P»*sb 
"Plot" 

89!  wrt  707»"sn+ 
"  ?P+G*F'j<?sb 

"Plot" 

90s  wrt  707 > "snH 
"  >P+G*P>ssb 

"Plot" 

91!  wrt  707>"sft$ 
" 5 P+G*P> i f  G<4. 
5i*sb  "Plot1 


8*7:  Line  87  first  uses  the  probe  labeling  char¬ 
acter  mentioned  in  the  documentation  of  lines  52 
and  53 .  Please  refer  to  the  sample-  offset  plot'  . 
at,  the  end  of  this  program  documentation  for 
general  reference  and  answers  to  any  questions 
which  may  arise  about  the  method  of  probe  label¬ 
ing  used  here.  Notice  that,  the  first  probe  is 
labeled  Probe  *.  Look  down  at  the  plot  and  see 
that  there  are  two**  on  the  Y-axis;  one  at  the 
origin  and  one  approximately  half-way  up.  If 
you  look  horizontally  across  the  graph  from  these 
two  **  you  will  see  two  more  which  are  parallel 
to  the  first  two  and  are  resting  on  the  line 
which  runs  parallel  to  the  Y-axis.  These  4  *'s 
form  a  rectangle  which  encloses  the  graph  of  the 
probe  which  is  labeled  Probe  *  at  the  top  of  the 
page.  A  scale  is  already  drawn  from  0  to  750  m 
on  the  long  side  of  the  rectangle  which  repre¬ 
sents  depth.  The  short  side  ranges  from  10°C 
(lower  asterisks;  to  30°C  (higher  asterisks). 

The  second  probe  is  labeled  Probe  X.  Probe  X  has 
the  same  rectangle  as  Probe  *  except  that  it  is 
labeled  with  X’s  and  has  been  offset  from  the 
first  rectangle  by  the  number  of  degrees  input  by 
the  operator  earlier  in  the  program.  Notice  that 
the  probes  are  offset  from  each  other  only  in  the 
Y  direction#  so  the  scale  along  the  bottom  of  the 
graph  (depth)  remains  the  same  for  all  probes. 

Line  87  uses  the  wrt  707,"sm*"  command  to 
tell  the  plotter  to  write  an  *  at  each  point  it 
is  told  to  plot.  The  program  is  then  sent  down 
to  subroutine  "plot"  which  plots  the  four  aster- 
This  subroutine  will  be  explained  more 
fully  later. 


88:  Line  88  changes  the  symbol  mode  set  in  line 
87  to  X.  P+G--P  offsets  the  axes  used  for  plot¬ 
ting  G°  along  the  Y-axis.  (G  is  the  operator- 
entered  offset  in  degrees) .  '.’he  program  is  then 

sent  down  to  subroutine  "plot", again  to  draw  the 
X's  in  their  proper  place. 


89:  and  90:  Lines  89  and  90  perform  the  same 
function  as  line  88  using  the  characters  +  and  H. 


91:  Line  91  uses  the  character  $  for  the  fifth 
probe  to  be  plotted  and  sends  the  program  down 
to  subroutine  "Plot"  only  if  the  operator-speci¬ 
fied  offset  is  less  than  4.5°C.  This  is  used  to 
prevent  the  upper  *  of  the  first  probe  from  being 
written  over  by  the  lower  $  of  the  fifth  probe. 


92:  if  G>=4. 55 
Pit  -15»P»-1» 
p.lt  -15  j  F‘+20>  - 
liPlt  765> P j -1 J 
pit-  765jP+20>-1 
93:  wrt  707?"sn" 
»*to  79 

94:  "four": if  fl+ 
B#4?9to  "three" 
95:  wrt  707? "sn* 

">9sb  "Plot" 

96:  wrt  707?"snX 
" >  P+G+P 5 esb 
"Plot" 

97:  wrt  707>"sn+ 
"$P+G*P»9sb 
"Plot" 

98:  wrt  707iHsnH 
"JP+G+PHsb 
"Plot" 

99:  wrt  707?'*s«" 
5  9 1  o  79 

10O:  "three":  if 
fl+B#3)sto  "two" 
18t:  wrt  707 > 

" sw# "  >  9Sb  "plot 

ii 

102:  wrt  707 » 
"swX"iP+G->P? 

9sb  "Plot" 

103:  wrt  707 > 
"sn+"  5  P + G *> P 5  if 
G<9i«b  "Plot" 
104:  if  G>  =95 
Pit  -15»P»-n 
Pit  —15? P+20> - 
lJplt  765? P? ~1 ? 
Pit  765 j  P+20> -1 
105:  wrt  707 > 
"sm" >9to  79 
106:  “two": if  ft+ 
B#2»9to  “one" 
107:  wrt  787? 
"sft*" » 9sb  "plot 

it 

108:  wrt  707 > 
"swX"  5  F+G+Pi  i  f 
G<  185 -95b  "Plot" 
109:  if  G >  =  1 S ? 

Pit  - 1 5 ?  P ? - 1 5 

Pit  -15? P+20J - 
UpI  v  7 6 5 « P  j  - 1 5 
Pit  765 j P+20 >-l 


92:  If  the  offsoc  specified  by  the  operator  is.;, 
less  than  4.5°C,  this  line  is  never  reached,  if 
it  is  greater  than  or  equal  to  4.5°C,  line  92 
writes  the  four  dollar  signs  used  to  bracket  the 
graph  of  the  fifth  probe  as  usual  except  that:*  the 
dollar  signs  are  written  slightly  away  from  the. 
Y-axis  and  the  line  parallel  to  it  so  as  not  to 
superimpose  over  the  other  characters  already 
written  on  the  axis. 

93:  Line  93  resets  the  symbol  mode  in  the  plot¬ 
ter  so  that  only  a  point  will  be  plotted  at  each 
point  rather  than  some  character.  The  program  is 
then  sent  back  to  line  79,  which  decides  what 
subroutine  to  send  the  program  to  for  plotting 
purposes. 

94:  thru  99:  If  the  total  number  of  probes  to  be 
plotted  is  equal  to  4,  subroutine  "four"  in  lines 
94  through  99  performs  the  same  functions  which 
subroutine  "offset"  (lines  86  through  93)  per¬ 
formed.  The  probe- labeling  characters  follow  the 
same  order  (*,X,+,  and  H) .  The  $  is  omitted 
since  only  four  probes  are  being  plotted.* 

1 00:  thru  105:  If  the  total  number  of  probes  to 
be  plotted  is  equal  to  3,  subroutine  "three”  in 
lines  100  through  105  performs  the  same  funtions 
as  subroutine  "offset"  (lines  86  through  93) .+ 

106:  thru  110:  If  the  total  number  of  probes  to 
be  plotted  is  equal  to  2,  subroutine  "two"  per¬ 
forms  the  same  functions  that  subroutine  "offset" 
(lines  86  through  93)  performed. 

Ill:  and  112:  If  the  total  number  of  probes  to 
be  plotted  is  only  1,  subroutine  "one"  in  lines 
111  and  112  performs  the  same  functions  as  lines 
87  and  99. 

*NOTE:  The  offset  from  the  axes, if  the  operator- 
entered  offset  for  the  probes  is  above  a  certain 
amount/  is  not  needed  here  since  no  overlap  is 
possible. 

+NOTE:  The  amount  of  offset  necessary  to  make 
the  program  set  the  last  probe- labeling  character 
away  from  the  axes  will  vary  with  a  different, 
number  of  total  probes. 
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110:  wrt  78?) 
"sn")*to  79 
111:  "one”: wrt. 
78?  ? "sn*" jgsb 
"Plot." 

112:  wrt  78?) 

"sn"?ato  79 
113:  "Plot Pit  . 
0> P j -1 5 pit  0jP+ 
2©>  -1 5  Pit  75*8) 
P> -1 1  pit  750) P+ 
28)  -1 
114:  ret 
115:  ,,ncix,,*Prt 
"Number  of  prob 
es'V'is  on  left 

•  i» 

} 

116:  prt  "Maxinu 
m  of f set "» "alio 
wed  is  on") "the 
right. " Jspc  2 

117:  prt  "1 . 

-No  offset") "2- 

- 28  degrees" 

118:  prt  "3 - 

10  degrees") "4- 

- 6  degrees" 

?  "5 - 5  degr¬ 

ees"  Jspc  25gto 
4? 

119:  gt o  4 7 
128:  " T?" :  if 
f 1 ?2) i f  f lg6=05 
if  I=C)0gl5cinf 
2)  sf  5  9 5  g  t  o 
"Til" 


113:  This  is  subroutine  "plot”,  which  plots  the 
probe-labeling  characters  on  the  Y-axis  and:  on 
the  line  parallel  to  the  Y-axis.  P  is  the  Y 
value  of  the  lower  two  characters  to  be  plotted, 
and  it  is  incremented  by  the  operator-entered 
offset  (G)  before  each  new  set  of  four  characters 
is  drawn.  The  two  upper  characters  are  arrived 
at  by  adding  20  (the  full  range  of  a  probe  in 
degrees  is  from  10  to  30°C)  to  P  and  plotting  the 
new  point  as  the  upper  asterisk, dollar  sign,  etc. 

114:  Line  114  is  the  return  statement  for  sub¬ 
routine  "plot". 

115:  thru  118:  Lines  115  through  118  comprise 
the  subroutine  "max"  and  are  reached  if  the  oper¬ 
ator  enters  an  offset  between  each  probe  which  is 
too  large  for  the  total  number  of  probes  which  he 
has  elected  to  plot.  The  message  "Too  much  off¬ 
set,  max.  offsets:"  has  already  printed  in  line 
48  just  before  this  subroutine  is  reached.  These 
lines  add  onto  that  message  the  following: 

"Number  of  probes  is  on  left;  Maximum  offset 
allowed  is  on  the  right." 

1 — -—No  offset 

2 - 20  degrees 

3 — — 10  degrees 

4  - -6  degrees 

5  - 5  degrees 

119:  Line  119  is  used  to  return  the  subroutine 
to  line  47  in  order  to  ask  the  operator  to 
enter  another  offset  within  the  bounds  specified 
above . 

120:  Line  120  starts  the  subroutine  "T7".  This 
subroutine  uses  the  information  entered  by  the 
operator  in  the  first  part  of  the  program  to  find 
the  proper  probe  files  on  the  cassette  and  send 
the  program  to  the  subroutine  "T7plt"  (indi¬ 
rectly)  to  be  plotted.  This  subroutine  ("T7") 
also  sends  the  program  down  to  its  Til  sister 
subroutine  when  it  is  time  to  plot  a  Til  probe. 

In  this  first  line,  if  flag  2  Is  set  and  flag  6 
is  not  set  and  if  I=C,  then  I  is  reset  to  0,  flag 
2  is  complemented  (reset  to  0) ,  flag  9  is  set, 
and  the  program  is  sent  down  to  the  subroutine 
"Til".  The  meaning  of  this  logic  sequence  is 
partially  explained  on  the  next  page. 


120:  (cont.) 


-  u 

i 

The  logic  sequences  expressed  in  the  lines  of 
this  subroutine  are  basically  to  decide  if  the 
correct  order  of  plotting  is  being  followed. 

See  the  variable  cross  reference  and  special  flag 
reference  sections  at  the  end  of  this  program  doc* 
umentation. 


121:  Line  121  makes  decisions  very  similar  to 
those  made  in  line  120  for  the  second  T7  probe (s) 
to  be  plotted. 
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15 
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5  cwf 

85 
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o  5 

1 

122:  If  the  file  counter  for  the  cassette  (R)  is 
less  than  20,  the  current  converted  data  file 
from  the  current  track  is  loaded  into  the  memory 
strings  dimensioned  at  the  first  of  the  program. 
The  program  then  skips  lines  123  and  124  to  con¬ 
tinue  at  line  125. 

123:  If  the  file  counter  for  the  cassette  (R) is 
greater  than  20  (indicating  the  end  of  the  track) , 
the  program  is  sent  down  to  the  subroutine  called 
"overflow')  which  tests  to  see  which  track  has 
just  been  completed  and  takes  action  accordingly. 

124:  When  the  program  returns  from  completion  of 
subroutine  "overflow"  reached  through  line  123, 
this  program  line  sends  the  program  back  to  line 
122  to  read  in  another  data  file  from  the  new 
track  (track  1;  if  track  1  has  just  ended  the 
subroutine, "overflow"  will  inform  the  operator  of 
this  fact  and  the  program  will  not  return) . 

125:  The  operator  is  required  by  the  program  to 
enter  the  start  time  of  the  first  T7  probe  which 
will  be  read.  After  that  first 

probe's  data  file  has  been  located,  all  subse¬ 
quent  T7  probes  will  be  plotted  in  chronological 
order  after  the  initial  probe.  Therefore,  flag  8 
(indicating  that  the  first  T7  probe  has  not  yet 
been  plotted)  must  be  set  in  order  for  this  line 
to  be  executed.  Since  it  is  known  that  a  probe 
will  be  either  plotted  or  the  next  file  will 
be  read  from  the  data  cassette,  the  file  coun¬ 
ter  XR)  is  incremented.  Then,  if  the  start  time 
(to  the  nearest  minute)  matches  the  start  time 
entered  by  the  operator  (to  the  nearest  minute) , 
the  current  probe  type  counter  (I)  is  incremented 
and  the  total  number  of  probes  plotted  (J)  is 
incremented.  Then,  since  the  first  T7  probe  is 
about  to  be  plotted,  flag  8  is  complemented  and 
the  program  is  sent  up  to  line  51  to  plot  the 
main  grid  (if  necessary)  and  to  plot  the  probe. 
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126:  if  J>0U  + 
i  +  n  j+uj^to 
51 

12?:  <?t o  122 
128:  "T?i>H " : - 
.85+UJfor  S=1 
to  4799  by  2 
129:  U+.85+UJ 
6. 472U-. 08216Ut 
2*V 

130:  i t f (E$  CS>  $+ 
13  HTJ  T/1000->T 


126:  If  flag  8  was  not  set,  and  therefore  line 
125  was  not  executed,  then;  the  probe  now  in  ques¬ 
tion  should  be  one  of  the  probes  immediately  fol¬ 
lowing  the  first  probe  which  matched  the  operator- 
entered  start  time.  The  command  which  asks  if  J 
is  greater  than  1  before  executing  the  line  is 
checking  to  see  if  one  probe  (at  least)  has  in¬ 
deed  been  plotted.  If  so,  both  probe  counters 
are  incremented  and  the  program  is  sent  up  to 
line  51  to  check  and  make  sure  that  the  main  grid 
has  been  plotted  first  before  plotting  the  probe 
itself. 

127:  If  neither  of  the  conditions  stipulated  in 
lines  125  and  126  were  met,  then  obviously  the 
first  T7  probe  for  which  the  program  is  now 
searching  in  the  data  cassette  has  not  been  found. 
This  line  sends  the  proqram  back  up  to  line  122 
to  be  read  &  nested  in  the  next  data  file  to  see 
if  it  is  the  desired  probe  file  prior  to  plotting, 

128:  Line  128  is  the  first  line  of  the  subrou¬ 
tine  "T7plt"  which  does  the  actual  plotting  of 
all  T7  probes  in  the  program.  The  sample  rate  of 
the  probes  in  the  data  acquisition  programs  is 
20  per  second  per  probe.  Therefore,  a  data  point 
should  be  placed  every  .05  seconds.  The  counter 
used  for  this  placement  (U)  is  initialized  to 
-.05  in  this  line.  Then  the  "for"  statement  for 
the  plotting  loop  is  stated. 

129:  For  each  data  point  in  the  loop,  this  line 
increments  the  time  counter  (U)  and  inputs  the 
current  value  of  U  into  the  depth  equation  for 
the  T7  probe.  The  value  which  emerges  from  this 
equation  is  the  value  of  the  probe  depth  in  the 
water  at  the  point  in  time  from  launch  specified 
by  U  and  is  expressed  in  meters.  This  value  is 
stored  into  the  variable  V  for  later  use. 

130:  Line  130  brings  in  the  next  temperature 
value  from  the  data  string  and  stores  it  into  the 
variable  T.  Then,  since  the  temperature  values 
were  stored  in  the  form  16435  for  the  temperature 
16.435°C,  T  is  divided  by  1000  and  placed  back 
into  T. 
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if  T <305 

Pit 

V »  T  5 7to  133 
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136: 
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137: 
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139: 

if  X <24 5 

trk  ynd f  X,G*> 
H$»I$‘lG$*C$5 
H$*DI57to  142 
140*  ssb  "overfl 
ow" 

141:  et  o  139 
142:  X+2*X5if 
05  if  G$Cli 
liJ=fl$Cl>  113  5  1  + 
HI5  J+14J5  cmf 
1 0 5  g  t  o  51 
143:  if  J>05 1+ 

1  ->  1 5  J+l4J5sto 
51 


144:  eto  139 


131:  Since  a  1200  is  written  for  each  invalid 
data  point  in  the  raw  data,  this  converts  to  :IL 
temperature  of  over  32°C  oh  the  converted  date 
cassette ,  Since  the  full  range  of  temperatures 
of  the  probes  is  supposed  to  be  10°  to  30°C,  this 
is  out  of  range.  Therefore,  the  point  V,T  (depth; 
and  temperature)  is  only  plotted  if  the  tempera¬ 
ture  is  less  than  30°C,  The  program  then  skips 
down  to  line  133.  * 

132;  Line  132  is  reached  only  if  the  temperature 
value  to  be  plotted  was  out  of  range  on  the  high 
side.  The  pen  is  lifted  and  will  not  go  down 
again  until  a  valid  point  is  plotted.  Therefore, 
a  string  of  invalid  temperature  values  will  show 
up  on  the  plot  as  a  space  or  gap  in  the  plot. 

133 j  Line  133  is  the  end  of  the  plotting  loop; 
it  sends  the  program  back  up  to  plot  another 
point  if  the  maximum  value  of  the  counter  (S)  has 
not  yet  been  reached. 

134:  After  all  data  points  from  a  given  probe 
have  been  plotted,  this  line  tests  to  see  if  the 
total  number  of  probes  which  have  been  plotted  by 
this  program  is  equal  to  the  total  number  of 
probes  which  the  operator  has  indicated  that  he 
wants  to  plot.  If  this  is  true,  the  program  is 
sent  down  to  the  subroutine  called  "finish"  to 
wind  up  the  program  execution  and  inform  the  oper¬ 
ator  that  it  is  finished. 

135:  In  line  135,  the  pen  is  lifted  in  prepara¬ 
tion  for  the  next  probe  plot.  If  flag  12  has 
been  set,  meaning  that  the  operator  has  elected 
to  have  the  program  stopped  after  full  plotting 
of  each  probe  to  allow  him  time  to  change  the  pen 
then  the  message  "Change  pen  and  press  CONTINUE" 
is  displayed  and  the  program  is  stopped. 

136:  Line  136  sends  the  program  back  up  to  the 
subroutine  "T7"  to  start  looking  for  the  next 
probe  to  plot. 

137:  thru  144:  These  lines  comprise  the  subrou¬ 
tine  "Til"  and  perform  either  very  similar  or 
identical  functions  to  those  in  lines  120  through 
127.  The  main  exception  is  that  these  lines  deal 
with  Til  probes.  Also,  in  line  139,  it  is  neces¬ 
sary  to  input  the  values  for  the  start  time  and 
probe  type  into  C$  and  D$  because  the  probe  label 
ing  lines  (lines  51  through  62)  label  the 
probes  using  C$  and  D$. 
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1455  "overflow"! 

if  R<20?gto  148 
146:  if  Q=05..HQ; 

HRHto  153 
14?:  -no  149 
148:  if  H=0?1*H5 
21*X?*to  152 

x  *r  j?  *  uc?  Pm*  {  v 

"Please  insert" 
* "next  data 
tape" t "before 
plotting" 

150:  prt  "this 
probe? "j "then 
press"  ?  "CONTINU 
E" 5  spc  2?  st  p 
151:  if  X <24 5 
O*Q50*R5*to  153 
152:  04H52HX 
153:  ret 
154:  "Tllplt":- 
.  05*U5  for  S-l 
to  10759  bv  2 
155:  U+.05-MJ5 
1.7779U-. 000255 
?Ut2*V 

156:  itf ( 1$ CS? S+ 

n  )-7t;t/10004T 

15?:  if  T <305 
pit  V?  T?  -sto  ,159 
158:  pen 
159:  next  S. 

160:  if  J=fl+B5 
gto  "finish" 
161:  pen? if  f lsl 
25  beep?  dsp  "Cha 
nse  pen  and 
press  CONTINUE" 
?  beep?  s  t-  p 
162:  gt o  "Til" 
163:  "Dy Ion": end 
?>"?"? ent  "Rew 
ind  Dvlon  tape? 
( y  o  r  n )  ? "  >  L  $ 
164:  if  L*="y"? 
wrt  ?04>"QK 1"? 
w ait  2  0 0  8 
165:  grit  "Hill 
plotted  Probes 
be  T?  or  Til") 
Kl 


145:  thru  153:  These  lines,  comprise  the  subrou¬ 
tine  "overflow",  which  is  reached  through  either 
subroutine  "T7"  or  subroutine  "Til"  if  the  end  of: 
a  track  on  a  data  cassette  has  been  reached. 

Lines  145  through  148  decide  which  track  has 
ended  and  from  which  subroutine  ("T7"  or  "Til") 
the  program  was  sent.  These  lines  also  reset 
variables  and  change  to  track  1  if  the  finished 
track  was  track  0.  Lines  149  and  150  are  reached 
if  the  entire  data  tape  has  been  looked  at  and 
the  current  file  for  which  the  program  is  search¬ 
ing  has  not  yet  been  found.  These  lines  print 
the  message  "Please  insert  next  data  tape  before 
plotting  this  probe;  then  press  CONTINUE".  The 
program  is  then  stopped  to  await  operator  action. 
Lines  151  and  152  decide  which  variables  to  reset 
in  the  case  of  a  finished  data  tape.  They  are 
reached  onlv  if  the  current  data  tape  has  been 
finished  and  the  operator  message  from  lines  149 
and  150  has  already  been  printed.  Line  153  re¬ 
turns  the  subroutine  to  the  appropriate  place  in 
the  program. 

154:  thru  162:  Lines  154  through  162  perform  the 
same  functions  that  lines  128  through  136  per¬ 
formed,  except  that  these  lines  perform  the  plot¬ 
ting  for  the  Til  probes.  They  also  comprise  the 
subroutine  "Tllplt". 

163:  Line  163  is  the  first  line  of  the  subrou¬ 
tine  called  "Dylon".  As  soon  as  the  operator 
enters  the  fact  that  he  wishes  to  plot  from  the 
Dylon  rather  than  from  the  cassette,  the  program 
is  bounced  down  to  this  subroutine.  In  prepara¬ 
tion  for  addressing  the  Dylon,  the  unlisten  com¬ 
mand  is  sent  over  the  bus.  Then,  since  a  person 
may  wish  to  plot  several  probes  in  a  row  from  the 
same  part  of  the  Dylon  tape,  the  operator  is  . 
given  the  choice  of  whether  to  rewin;'.  the  Dylon 
tape.  In  this  manner,  if  the  operator 

knows  that  the  next  probe  to  be  plotted  is  far¬ 
ther  ahead  on  the  tape,  he  can  skip  the  time- 
consuming  process  of  rewinding  the  tape  and 
searching  all  the  way  through  it  again. 

164:  If  the  operator  elected  to  rewind  the  Dylon 
tape  in  line  163,  the  Dylon  is  rewound  and  posi¬ 
tioned  at  the  first  file  on  the  tape. 

165:  Line  165  asks  if  the  plotted  probes  will  be 
T7  probes  or  Til  probes.  (Since  the  converted 
data  from  T7  and  Til  probes  are  on  separate  tapes, 
both  may  not  be  plotted  on  the  same  graph  from  the 
Dylon  unit. 
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166:  dsp  "Total 
number  of  " > K $ > 
"  probes  to"? 
wait  2000 
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J+ 1 g J J cnf 
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176! 

if  J>0»J+ 

1*J» 

gto  51 

15 

,166:  Line  166  asks  the  operator  how  many  of  the 
types of  probes  he  selected  in  line  165  he  wishes 
to  plot. 

167:  Line  167  finishes  the  question  asked  in 
line  166  and  enters  it  into  memory  for  later  use. 

168:  and  169:  These  lines,  ask  the  operator  the 
start  time  of  the  first  probe  that  he  wishes  to 
plot. 

170:  Line  170  effectively  skips  the  drawing  of 
a  sample  grid  (Y^axis)  if  there  is  only  one  probe 
to  be  plotted^  meaning  that  there  is  no  need  for 
the  operator  to  enter  an  offset. 

171:  Line  171  inputs  the  values  of  W  and  0  into 
the  variables  A  and  B  for  use  in  the  offset  evalu¬ 
ation  to  take  place  in  line  48.  The  program  is 
then  sent  up  to  the  subroutine  '’grid”  to  draw  a 
sample  scaled-down  Y-axis  and  let  the  operator 
enter  an  offset  in  °C  based  upon  that  grid. 

172:  Line  172  decides,  based  upon  previous  oper¬ 
ator  input,  whether  to  let  the  program  continue 
to  subroutine  "T7Dy"  or  to  send  it  down  to  subrou¬ 
tine  "TllDy". 

173:  and  174:  These  two  lines  read  in  the  start 
time  and  probe  type  from  the  current  Dylon  tape 
f  xle . 

175:  Flag  8  is  set  at  the  beginning  of  the  pro¬ 
gram  to  indicate  that  the  first  Dylon  probe  file 
to  be  plotted  (the  probe  which  must  match  the 
operator-entered  start  time)  has  not  yet  been 
plotted.  If  flag  8  is  still  set,  this  line  is 
executed  and  it  checks  to  see  if  the  start  time 
entered  by  the  operator  is  matched  by  the  start 
time  read  by  the  calculator  from  the  Dylon  tape. 
(Times  need  only  match  to  the  nearest  minute.) 

If  the  times  do  match,  the  probes-plotted  counter 
is  incremented,  flag  8  is  complemented,  and  the 
program  is  sent  up  to  plot  the  main  grid  and  then 
to  plot  the  probe  itself. 

176:  If  flag  8  is  not  set,  ther  line  175  is  not 
executed.  But  the  start  cirne  and  probe  type  now 
in  memory  should  be  correct  if  the  first  probe 
has  been  plotted.  Therefore,  if  J  is  greater  thar 
1,  J  is  incremented  and  the  program  is  sent  up  to 
plot  the  grid  if  necessary  and  to  plot  the  probe. 
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1??:  wrt  704? 

"Kl" ?sto  "T7Dy" 
178:  "T7Dyplt":w 
rt  704?  "sr? 
wrt  704? "R32888 
V1080"  > 05*U? 
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179:  U+.05HI? 

6. 472U- . 8021 6Ut 
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f  6.8 
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181:  if  T <30? 
pit  V  ?  T  ?  s  t  o  183 


177:  If  neither  of  the  conditions  for  execution 
of  lines  175  and  176  were  satisfied,  the  first 
probe  has  not  yet  been  found.  So  the  Dylon  tape 
is  spaced  forward  to  the  next  file  and  the  pro¬ 
gram  is  sent  back  to  the  start  of  the  subroutine 
to  test  the  new  file  and  see  if  it  contains  the 
desired  probe  data. 

178:  Line  178  is  the  first  line  of  the  subrou¬ 
tine  "T7Dyplt".  The  first  two  commands  enable 
the  Service  Request  interrupt  from  the  Dylon  unit 
(this  has  the  function,  among  others,  of  stopping 
program  execution  if  the  program  goes  too  far  and 
tries  to  read  a  file  mark)  and  sets  up  the  block 
size  for  reading  in  the  probe  data. 
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179:  thru  186:  This  subroutine  ("T7Dyplt")  is 
almost  identical  to  the  subroutine  ("T7plt")  in 
lines  128  through  136.  The  only  differences  are 
in  line  178  above,  line  186  sends  the  program 
back  to  the  subroutine  "T7Dy"  rather  than  to  its 
sister  subroutine  in  the  cassette  section  ("T7"). 
And  the  data  points  are  read  in  differently  in 
that  they  are  read  in  directly  from  the  Dylon 
tape  instead  of  from  an  internal  memory  string. 

187:  thru  191:  These  lines  comprise  the  subrou¬ 
tine  "TllDy"  which  is  the  Til  probe  version  of 
the  subroutine  "T7Dy"  in  line3  173  through  177 * 


188:  red  785? C$5 
wrt  784? "R1V9" ? 
red  785? 0$ 

189:  if  f 1*8?  if 

c-rci?  in=fun? 

1 13  ? J+l+JScwf 
8?sto  51 
190:  if  J > © ? J + 
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191:  wrt  784? 

* Kl“»9to  “T110y 

192:  “TilDyplt": 
w  r  t  704? " SI"? 


192;  thru  2 00:  These  lines  comprise  the  subrou¬ 
tine  "TilDyplt"  which  is  the  Til  probe  version  of 
the  subroutine  "T7Dyplt"  in  lines  178  through  186. 

201:  and  202:  These  two  lines  comprise  the  sub¬ 
routine  "finish"  which  is  reached  after  all 
probes  have  been  plotted.  It  prints  the  message 
"If  you  wish  to  plot  more  data,  press  RUN".  The 
paper  is  spaced  up  to  allow  the  operator  easy 
view  of  the  message  and  the  plotter  is  given  the 
IN  command,  which  places  the  pen  in  the  initial 
position  and  erases  all  scaling,  line  types,  etc. 
The  program  is  then  stopped  and  ended. 


wrt  704? "R32808 
Vi  088"? -.65*U? 
for  S— 1  to  5380 
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196:  pen 
197:  next  8 
198:  if  J=W5 9 to 
"finish" 

199:  pen?  if  f Is 1 
2?beep?dsp  "Cha 
nee  pen  and 
Press  CONTINUE. 
" ? beep? s  t  p 
280:  -3 to  "TllDy" 
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t  "If  you  wish 
to" ? “plot  no  re 
data? "? "press 
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707? “IN" 1st p  ? 
end 
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FILE  13 

VARIABLE  CROSS-REFERENCE  AND  DESCRIPTION 

FLAG  LISTING  AND. DESCRIPTION  ~  ' 

At  left  arid  continued  on  the  next  page  is  a  list¬ 
ing  of  all  variables  used  in  the  offset  plotting 
routine  (FILE  13)  and  in  what  program  lines  they 
occur.  Following  that  is  a  listing  of  all  flags' 
in  the  program  and  in  what  lines  they  occur.  To 
the  right  of  the  page  is  a  listing^  of  the  same, 
variables  and  flags  and  their  uses  in  the  program. 

A:  Total  number  of  T7  probes  to  be  plotted  on  a, 
given  piece  of  paper  (graph)  in  the  cassette 
mode* . 

*NOTE :  From  this  point  on,  an  *  at  the  end  of  a 
variable  or  flag  description  indicates  that  it  is 
used  by  the  cassette  mode  of  the  program.  A  X  at 
the  end  of  a  description  indicates  the  Dylon  mode 
of  the  program.  If  there  is  nothing  following 
a  description,  the  variable  or  flag  may  be  used 
in  both  sections. 

B:  Total  number  of  Til  probes  to  be  plotted  on  a 
graph.* 

C:  Used  only  if  the  first  probe  to  be  plotted  is 
a  T7  probe.  Stores  the  number  of  T7  probes  to  be 
plotted  in  the  first  set.* 

D:  Used  to  determine  how  many  Til  probes  will  be 
plotted  in  the  first  set  of  Til  probes  notwith¬ 
standing  the  fact  that  some  T7  probes  may  or  may 
not  have  plotted  already.* 

E:  How  many  T7  probes  will  be  plotted  in  the 
next  T7  set.* 

F:  Number  of  Til  probes  to  be  plotted  in  the 
next  set.* 

G:  Operator-entered  amount  of  offset  between 
probes.  Expressed  in  °C. 

H:  Track  indicator  variable  for  Til  probes.* 

Is  Counter  for  the  number  of  probes  plotted, thus 
far  in  any  given  set,  is  used  to  compare  with 
set  counters  such  as:  C,D,etc.* 
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130 

138 

131 

131 

156 

156 

156 

157 

157 

138 

188 

188 

181 

131 

194 

194 

194 

195 

195 

U 

128 

129 

129 

129 

129 

154 

155 

155 

155 

155 

178 

179 

179 

179 

179 

192 

193 

193 

193 

193 

V 

129 

131 

155 

157 

179 

181 

193 

195 

W 

48 

48 

167 

178 

171 

184 

198 

X 

1 

139 

139 

142 

142 

148 

151 

152 

J:  Counter  for  the  total  number  of  probes  plot¬ 
ted  so  far. 

K:  Number  of  probes  to  be  plotted  in  the  last  T7 
probe  set.* 

L:  Y  value  of  the  start  point  of  probe  labels. 

M:  X  value  of  the  start  point  of  dotted  lines 
coming  upward  from  each  tic  nark  on  the  X  axis. 

N:  X  value  of  the  start  point  of  probe  labels. 

0:  Indicator  to  the  program  whether  the  operator 
has  chosen  to  plot  from  the  cassette  mode  or  the 
Dylon  mode. 

P:  Y  value  of  the  position  of  the  probe  labeling 
characters. 

Q:  Track  indicator  for  T7  probes.* 

R:  File  number  counter  for  T7  probes.* 

S:  Counter  used  to  count  the  number  of  data 
points  to  be  plotted. 

T:  Temperature  values  which  make  up  the  Y  coor¬ 
dinates  of  points  to  be  plotted. 

U:  Counter  for  the  number  of  elapsed  ^nds 
since  probe  launch,  used  to  input  into  depth  equa¬ 
tions  for  different  probes. 

V:  Value  which  represents  the  depth  of  the  probe 
at  the  time  at  which  a  given  temperature  value 
was  taken.  It  is  the  result  of  the  standard 
depth  equation  for  its  probe  type  and  is  a  func¬ 
tion  of  the  time  variable  (U) . 

W:  Total  number  of  probes  to  be  plotted. 

X:  File  counter  for  Til  probes.* 

A$:  Start  time  of  the  first  T7  probe  to  be  plot¬ 
ted  (if  applicable).* 

B$:  Probe  type  of  first  probe  to  be  plotted.* 


fli 

2 

9 

125 

142 

169 

175 

189 

Bi 

2 

19 

20 

Ci 

3 

55 

122 

125 

139 

174 

175 

188 

189 

Di 

3 

55 

83 

84 

122 

139 

174 

188 

Ei 

3 

122 

138 

Fi 

2 

3 

55 

59 

68 

61 

62 

Gi 
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139 

139 

142 

Hi 

3 

139 

139 

1$ 

3 

139 

156 

J$ 

2 

11 

Ki 

C* 

165 

166 

1 68 

172 

Li 

2 

163 

1$4 

Hi 

o 

tm. 

81 

81 

3,  '  ; 

,  i 

C$:  Start  time  string  used  in  plotting.  This 
string  is  loaded  with  the  value  of  the  probe 
start  time  from  either  tape.  (Dyioh  .br  cassette)  . 

D$:  Probe  type  string  used  in  plotting.  This 
string  is  loaded  with  the  value  of  the  probe  type 
from  the  cassette  or  the  Dylon. 

E$ :  Main  data  string  for  T7  probes.* 

F$ :  A  l~character  string  used  to  store  the  probe 
labeling  characters  (i.e.;  *,$,H,X,  etc.). 

G$:  Start  time  string  not  used  .^n  plotting. 

This  string  is  loaded  with  the  value  of  the  Til 
start  time  and  that  value  is  then  transferred 
into  C$  to  be  used  in  the  plotting  routine.* 

H$:  Probe  type  string  not  used  in  plotting. 

This  string  is  loaded  with  the  value  of  the  probe 
type  and  that  value  is  then  transferred  to  D$  for 
plotting  purposes.* 

1$:  Main  data  string  for  Til  probes.* 

J$:  Start  time  of  first  Til  probe  to  be  plotted 
(if  applicable).* 

K$:  Probe  type  of  probes  to  be  plotted  from 
Dylon  tape.# 

L$ :  Stores  the  operator-entered  answer  to  the 
question  "Rewind  Dylon  tape?".# 

M$;  Stores  the  operator-entered  answer  to  the 
question  "Do  you  wish  to  stop  after  the  plot  of 
each  probe?". 

(Flag  listing  follows  on  next  page) . 
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FLAG  2:  Flag  2  is  used  to  indicate  to  the  pro**, 
gram  that  more  than  one  type  of  probe  is  to  be 
plotted.  It  is  only  used  with  the  cassette  mode. 

FLAG  3j  Flag  3  is  used  to  indicate  to  the  pro¬ 
gram  that  at  least  one  set  (a  set  is  one  or  more) 
of  T7  probes  is  to  be  plotted.  The  setting  of 
flag  6  determines  if  at  least  two  sets  of  T7 
probes  will  be  plotted.  Again',  this  flag  is  used 
only  in  the  cassette  mode.* 

FLAG  4:  Flag  4  is  used  to  indicate  to  the  pro¬ 
gram  that  at  least  two  sets  of  Til  probes  will  be 
plotted.  Used  only  in  cassette  mode. 

FLAG  5:  Flag  5  is  used  to  indicate  to  the  pro¬ 
gram  that  at  least  two  sets  of  T7  probes  will  be 
plotted.  The  setting  of  flag  6  determines  if  at 
least  3  sets  of  T7  probes  are  to  be  plotted.  As 
in  the  previous  flags,  this  flag  is  used  only  in 
the  cassette  mode  of  plotting.* 

FLAG  6:  Flag  6  indicates  to  the  program  that  the 
first  probe  to  be  plotted  (cassette  mode  only)  is 
a  Til  probe.  This  flag  is  used  to  determine  what 
probe  to  plot  next.  If  flag  3  is  set  and  flag  6 
is  set  too,  then  flag  3  indicates  to  the  program 
that  at  least  one  set  of  T7  probes  will  be  plot¬ 
ted.  This  is  unnecessary  due  to  the  fact  that 
flag  2  is  set  and  the  program  already  knows  that 
dt  least  one  set  of  each  probe  type  will  be  plot¬ 
ted.  But,  if  flag  3  and  flag  6  are  changed  so 
that  flag  3  is  still  set  but  flag  6  is  not  set, 
then  the  fact  that  flag  3  is  set  indicates  to  the 
program  that  at  least  two  sets  of  T7  probes  are 
to  be  plotted. 

FLAG  7:  Flag  7  is  set  to  indicate  to  the  program 

that  the  main  grid  has  been  drawn. 

FLAG  8:  Flag  8  in  the  cassette  mode  indicates  to 

the  program  that  the  first  T7  probe  has  not  yet 
been  plotted  so  that  the  program  will  continue  to 
search  for  the  proper  start  time  for  the  first  T7 
probe.  In  the  Dylon  mode,  flag  8  indicates  that 
the  first  probe  (either  type)  has  not  yet  been 
plotted  for  the  same  reason.  After  the  first 
probe  has  been  plotted,  flag  8  is  complemented. 


FLAG  9;  Flag  9  is  an  indicator  that  the  first 
set  of  probes  in  the  cassette  mode  has  been  com-' 
pletely  plotted.  It  is  used  to  decide  which 
probes  should  be  plotted  next. 

FLAG  10:  Flag  10  is  used  in  the  cassette  mode  to 
indicate  to  the  program  that  the  first  Til  probe 
has  net  yet  been  plotted  so  that  the  program  will 
continue  to  search  for  the  correct  probe  start 
time  until  it  is  found.  At  that  time,  flag  10  is 
complemented . 

FLAG  11:  Flag  11  is  used  to  indicate  that  the 
first  set  of  Til  probes  has  not  yet  been  plotted. 
(Cass  itte  mode  only) . 

FLAG  12:  Flag  12  is  set  if  the  operator  decides 
in  the  program  that  he  wishes  to  have  the  program 
stop  after  the  plot  of  each  probe  to  allow  him 
time  to  examine  the  plot  and  change  pens  if  he  so 
desires. 


FILE  14 

DEVIATION  PLOTTING  ROUTINE 
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3: .f xd  05 1*B5 
0+C5  1*05  UF5 
9  ?  *  G  5  8  *  K  5  1  *  M  5 
25*N59*0J21»P5 
HQJcfs  »  sf -s  4 
1:  psc  707 5  pc  1 r > 
wrt  ?O7>"ip2000 
?  709 > 5212?  8100" 
5 wrt  707 > "Vfl" 5 
f  fit  1  >  z  >  f  6 . 0 
2:  din  fl C40Q1 , 

B  [503  ,  DC-24:  243 
>  fil  C33  >  B$  Cl 43 » 
F$  [  1 3 

3:  ent  "Using 
Dylan (0)  or 
cassette  1 1 ) ?"  >  fl 
4:  ent  "Is  Probe 
a  T7  or  Til?", 
fl* 

5:  ent 
start 


"Probe 
* ine (ex*0 
7:24: 12:38) ">B$ 
6:  beepldsp  "Do 
you  wish  to 
have  the  prosra 
n"  5  wo  it  2500 
7 :  besp?  ent  ' s t o 
p  for  Per  chan? 
es?  (y  or  n)"» 
F$ 


‘y"5 


8:  if  F*= 
sfg  3 

9:  if  fl-=ljbeep; 
cJsp  "Insert- 
Data  Tape? press 
CONTIUUE" Jstp 
10:  sol  10,30, 
750 »  -4-55  osiz  ' 


5  j  1 


FILE  14 

T7/T11  DEVIATION  PLOTTING  ROUTINE 

0:  Line  0  sets  a  fixed  decimal  point  in  the  cal-  - 
culator  with  zero  digits  following  that  decimal. 
Then,  various  variables  to  be  used  in  the  program 
are  initialized,  all  flags  in  the  calculator  are 
cleared  (set  to  0) ,  and  flag  4  is  set  (set  to  a 
value  of  1) .  Flag  4  will  be  used  later  in  the 
program. * 

1:  Line  1  selects  plotter  address  7  on  the  HP-IB 
bus  (also  address  700) ,  clears  the  plotter,  then 
writes  the  i£. . .  command.  The  ip  command  sets 
up  the  absolute  plotting  area  to  oe  used  for 
scaling  purposes.  The  VA  command  adapts  the  velo¬ 
city  of  the  plotter  pen  to  the  approximate  rate 
at  which  the  calculator  is  sending  out  values  to 
be  plotted.  The  format  statement  at  the  end  of 
the  line  is  used  in  reading  from  the  Dylon  tape. 

2:  In  line  2,  more  variables  are  dimensioned.* 

3:  thru  7:  These  lines  ask  the  operator  to  enter 
the  device  (Dylon  or  cassette) ,  probe  type,  start 
time  (to  the  nearest  minute) ,  and  stoo  for  pos¬ 
sible  pen  changes. 

8:  Line  8  sets  flag  3  if  the  operator  elected  to 
have  the  pen  stop  during  the  plotting  of  the 
probe . 

9:  If  the  operator  has  elected  to  plot  from  the 
cassette  (which  is  usually  the  case) ,  then  the 
program  displays  the  message  "Insert  Data  Tape 
and  press  CONTINUE".  The  program  is  then  stopped 
to  await  operator  action. 

10:  Line  10  sets  up  the  scale  for  plotting  the 
main  probe  profile,  sets  a  character  size 
of  3.5%_  of  the  total  scaling  area,  and 

sets  an  aspect  ratio  of  1  (letters  just  as  wide 
as  they  are  high, but  conforming  to  the  shape  of 
the  scaling  area) . 

*NOTE:  Immediately  following  the  documentation 
of  this  plotting  routine  is  a  listing  of  all  var¬ 
iables  used  in  the  program  and  the  line  numbers 
in  which  they  occur.  Also  included  is  an  explan¬ 
ation  of  the  use  of  each  variable.  Each  flag 
in  the  program  is  then  documented  in  a  similar 
manner.  These  listings  are  provided  for  ease  of 
alteration  should  the  program  need  to  be  changed 
to  fit  the  individual  user's  needs. 
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11:  xcix  750?5? 

10  5  30 J  1 
12:  fxd  5?  wrt 
707? " SL" ?  tan (30 
)?plt  33?  779? 1 5 
1  b  1  "o"?Plt.  34? 
796? 15 1 b  1  ‘C" 
13:  fxd  0Jwrt 
707?  "SL" ?vax 
10? -50? 750? 0? 3? 

lv  v 

14:  wrt  707? "SL" 
? tan (28)? pit  2? 
350? 15 1 b  1  "Dept 
h " ?  p 1 1  1 ?  390?  1  ? 
1  b  1  ” (neters)" 
15:  pit  10?  0?  —25 
Pit  30? 0? Pit 
30 ?  750? -1 ?  wrt 
707? "SL" 

16:  pit  10? 150? 

1  ?  1 ine  1  ?  1 . 5 
17:  pit  59.8? 
150B?  2?  B+HB? 
Pit  59.8?  150B.? 
l?plt  10? 150B?  2 
18:  B+1->B?  pit- 
10? 150B?  1?  if 
B <5 5  etc  17 
19:  pit  15? 758? 

1  ?  p  1 1  1 5  ?  0  ?  2  ? 
pit  20  ?  0  ? 1 ?  p  1 1 
20?  750? 2?  Pit 
25?  750? IS  Pit 
25? 0? 2 

20:  pen?  if  f  1  ■=? 3 5 
d  ■=•  p  “  C  h  a  n  ?  e 
pens  and  press 
CONTI  HUE. “ ?  beep 
?  s  t  P 

21:  if  fi*  =  "TH"? 
din  CtC14]?DfC9 
) ?  ESC 108O0] ? 
s to  23 

22:  oil'-,  CSC  14]? 
D*  C93  *  E$  [48183  ? 
if  g  5 


11:  Line  11  draws  the  X-axis  for  the  plot  of  the 
main  probe  profile. 

12:  Line  12  labels  the  X-axis  with  the  label  °C 
written  at  a  3 0°  slant. 

13:  and  14:  These  lines  draw  the  Y-axis  for  the 
main  probe  profile  and  label  it  Depth  at  a  20° 
slant.  (meters) 

15:  Line  15  outlines  the  plotting  area  and  resets 
the  slant  parameter  to  0° . 

16 j  thru  19:  These  lines  cross-hatch  the  plot¬ 
ting  area  with  dotted  lines. 

20:  Line  20  displays  the  Change  pen  message  and 
stops  the  program  if  the  operator  elected  earlier 
to  have  the  program  stop  to  allow  pen  changes. 

21:  and  22:  These  lines  dimension  the  variables 
which  will  hold  the  data  read  from  tape.  The 
variables  must  be  dimensioned  differently  for 
different  probe  types. 

23:  If  the  operator  elected  earlier  to  plot  from 
the  Dylon  tape  unit#  the  program  is  sent  down  to 
subroutine  "Dylon"  at  this  point. 

24:  Line  24  is  the  first  line  of  subroutine  "T7". 
This  line  loads  the  data  from  the  first  T7  file 
from  the  cassette  into  the  proper  string 
variable. 

25:  Line  25  sends  the  program  down  to  subroutine 
"T7plt"  if  the  start  time  of  the  probe  data  which 
was  just  read  from  cassette  matches  the  desired 
start  time  of  the  probe  to  be  plotted  by  the 
operator  in  line  5. 

26:  Line  26  sends  the  program  back  up  to  load 
another  file  of  data  from  the  cassette  and  tests 
the  start  time  to  see  if  it  matches  the  operator- 
entered  start  time  from  line  5. 

27:  Line  27  is  executed  if  the  end  of  track  0  on 
the  cassette  has  been  reached.  It  changes  the 
track  and  file  counters  to  the  first  file  on 
track  1  and  sends  the  program  back  up  to  read  in 
the  data  from  that  file. 


23:  if  fl=0J  <no 
"Dv Ion" 

24:  "  T7" :  t  r k  C? 

ldf  D»C*>D$»E$ 
25:  if  C$Ci»113= 
B$IU  ill  ?<3to 
"  T  7  p  1 1- " 

26:  if,  D <  1 S 5  D  + 
2->D?  ?to  "T7" 

27:  if  C=05 1*C5 
1*05 vto  "T7" 

28:  prt  "Oesisna 
ted  probe" » "not 
found  on"j"thi 
s  data  tape."? 

st  P 

28:  " T7plt " : csiz 
2 . 5  >  1 !  p  1 1-  1 3  ?  — 
155151b!  C$5" 

"5  0$ C45  63  ?line 

30:  fxd  115-. 05^ 
U 5  f  o r  1  =  1  to 
4799  by  2 
31 :  U+.  05*1)5  6. 47 
2U-. 00216Ut2*V 
32:  it-f  (E$CIj  1  + 
13  HT5T/10O0*T 
33:  if  T <=305  if 
T>=185  pit  T 5  V 5 
?to  35 

34:  V*fl[Q35Q+ 

1 *Q5 pen 
35:  next  I 
36:  psc  707Jpclr 
5 wrt  707 5 " ip658 
0  5  700?  100005 
8100" 5 wrt  70?5 
“Vfl" 
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28:  Line  28  is  reached  if  the  whole  tape  has  \ 
been  searched  and  the  desired  probe  ;has  npt.  ^ett  ,, 
been  found.  The  calculator  then  prints  the  mes- 
sage  "Designated  probe  not  found  on  this  data 
tape."  and  stops  the  program.  ’ 

29:  Line  29  is  the  first  line  of  the  subroutine 
"T7plt"  which  actually  plots  the  data.  This  line 
sets  a  slightly  smaller  character  size,  and  labels 
the  grid  used  to  plot  the  main  probe  profile  with 
the  start  time  and  probe  type..  *  .  The 

line  command  resets  the  line  parameter  from  the 
dotted  line  to  a  continuous  line. 

30:  Line  30  sets  a  fixed  decimal  point  with  11 
digits  following.  Then,  the  value  of  U  (counter 
for  the  seconds  since  probe  launch)  is  initial¬ 
ized.  The  rest  of  the  line  is  the  "for"  state¬ 
ment  of  the  plotting  loop. 

31:  Line  31  increments  U  and  places  the  new 
value  of  U  into  the  depth  equation  for  the  T7 
probes  and  stores  the  result  into  the  variable  V. 

32:  Line  32  brings  in  a  temperature  value  from 
the  storage  string  E$  and  stores  it  into  the 
variable  T.  This  value  is  then  divided  by  1000 
to  put  the  decimal  place  in  the  right  position 
and  the  result  of  this  calculation  is  then  put. 
back  into  the  variable  T. 

33:  Line  33  plots  the  point  (T,V)  if  it  is 
within  the  range  of  10° to  30°C.  The  pro¬ 
gram  is  then  sen  to  line  35. 

34:  Line  34  is  reached  only  if  the  point  to  be 
plotted  in  line  33  was  out  of  range.  It  stores 
the  point  into  an  array  (A) ,  the  array  counter  i 
incremented  (Q) ,  and  the  pen  is  raised.  In  this 
way,  if  several  invalid  data  point  occur,  the  pe 
will  not  sit  on  the  paper  and  make  an  ink  spot 
which  could  cloud  part  of  the  graph. 

35:  Line  35  is  the  "next"  statement  for  the 
plotting  loop. 

36:  Line  36  clears  the  plotter  and  uses  the  ig 
command  to  set  the  absolute  plotting  area  for 
the  deviation  plot. 
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37:  sc  1  -10?10? 
750 j -455  line  1? 

.  755  1. 1 5->U 
38:  pit-  0?  7.4399 
434? -25  Pit  0? 
742. 5600566? -1 
39:  line  5 pit  - 
10? 750? -2? Pit  - 
1 0 ?  8 5  p  1 1  10?  05 
Pit-  10?  7505  Pit 
-10? 750 

40:  line  2? 1 . 55 
Pit  18?  738.6865 
034? 1 5  Pit  -10? 
738.6865034?^} 
pen 

41:'  Pit  -10? 7. 43 
99434? -25  Pit 
10?7. 4399434?- 
15  line  5  csis  2? 
1 

42:  pit  —  1  >  —26.? 
15 1  b  1  "MEAN"  5. 
pit  '0? -205  Pit 
O ? 0 ? 2 5  p 1 1  .5?- 
95  pit  -.5? -95 
pit-  0 ?  0 
43:  gsb  "de?" 

44:  for  I-F  to 
G  by  25 itf (El Cl 
?  1  +  13  HB  CM]  5 
BCM3/1000+BCM3 5 
M+l+Mi next  1 
45:  1  + 1 5  f  o r  J=- 
(N-l )  to  N-15 
DCJ3*BCI3*H5H+ 
K+K5 1  +  1  + 1 5  next 
J 

46:  U+. 05+U5  6.47 
2U-.00216Ut2+V 
47:  BC253-K+L? 
if  abs (L) <=E? 
Pit  L? V5 oto  49 
48:  pen 

49:  if  U=113.85 
sto  "finish" 

50:  F  +  2  +  F5  G+2+G? 
U+.05+U? 1+M? 
0+Kjgto  44 
51:  " T 1 1 “ : t  r k  Qi 
ldf  P?C$?Df?E$ 
52:  if  Of  Cl ? 1 13  = 
B  $  C 1  ?  113  ?gt.o 
"TllPlt" 


37:  Line  37  sets  up  the  scale  for  the  deviation 
plot  grid.  A  very  close-packed  dotted  line  mode 
is  then  initialized,  in  the  plotter  with  the  line 
statement.  Then  U  is  re-initialized. 

38:  thru  42:  This  deviation  plotting  rou¬ 

tine  uses  24  points  on  either  side  of  a  certain, 
mid-point  in  a  segment  to  calculate  a  weighted 
average  over  that  segment  and  then  compares  that 
weighted  average  with  the  actual  value  of  the  mid¬ 
point  of  the  segment  to  find  the  deviation  of' 
the  midpoint  from  the  calculated  inean.  The  first 
24  points  can  be  used  to  calculate  the  mean  for 
the  25th?  but  no  means  may  be  calculated  for  the 
first  or  last  24  points.  Therefore,  these  lines 
plot  a  dotted  line  down  the  center  of  the  grid  to 
represent  the  mean.  Then,  two  dashed  lines  are 
plotted  perpendicular  to  that  mean  line. (They 
represent  the  endpoints  or  the  deviation  plot,) 

>  The  grid  is  then  labeled  at  the  top  with  the  word 
MEAN  followed  by  an  arrow  pointing  down  to  the 
dotted  line  representing  the  mean. 

43:  Line  43  sends  the  program  down  to  subroutine 
degree  at  this  point. 

44:  Line  44  reads  in  the  desired  segment  of  data 
points  into  the  array  B  after  multiplying  each  of 
them  by  ljJJJJJ  to  position  the  decimal  point  prop¬ 
erly. 


45:  Line  45  multiplies  each  value  of  array  B  by 
its  corresponding  weighting  value  (weighting 
values  are  calculated  in  subroutine  “degree") . 

All  the  resulting  valv.es  are  added  together  and 
stored  in  the  variable  K.  After  the  execution  of 
this  program  line,  K  represents  the  weighted  aver¬ 
age  of  the  points  in  the  segment  being  considered. 

46:  Line  46  performs  the  depth  calculation  upon 
the  value  of  U  and  stores  it  into  the  variable  V. 

47:  Line  47  plots  the  value  of  B  £25]  (midpoint 
of  the  segment)  minus  K  (calculated  mean)  as  the 
X  value  and  V  as  the  Y  value.  Only  this  point 
jis  plotted, and  only  the  program  is  sent  to  line 
49  if  this  value  is  within  the  X  range  of  the 
deviation  plotting  grid. 

48:  Line  48  lifts  the  pen  to  avoid  an  ink  flow 
on  the  paper  if  a  point  outside  the  plotting 
range  is  discovered. 


53!  if  0<225  0+ 
2*05  sto  "Til" 
54:  if  P=0?HP; 

2H05st.o  "Til" 
55!  *tD  28 
56:  "T1 lplt " s csi 
z  2.5}  1 5  p  1 1  1 3  j 
- 1 5 » 1 >1  b  1  C$f" 

" jD$C4j6] 5 
line  icM  4 
57!  fxd  115-.05* 
U I f o  r  1  =  1  to 
10759  by  2 
58:  U+.  0 5 U  5  1 . 77 
79U-. 0O82557Ut2 
•>  V 

59!  itf  (EHI)  1  + 
1]  HT5T/1000*! 
60:  if  T <  =  305  if 
T>  =  185  pit  T ?  V ? 
sto  62 

61:  V  ->  fi  C  Q  3  5  Q + 

HQ  5  pen 
62:  next  I 
63!  psc  ?07>pclr 
5 w r t  707>"ip650 
0  }  7 0 0  J  10000J 
8100" iwrt  787} 
"VfT 

64:  sol  -IOjIOj 
750 j -455  line  1? 

.  755  1  .  15-MJ 
65:  pH  8>0>-25 
Pit.  0?  750  >  -  I 
6  6  *  line  5  p 1 1  - 
ID?  750> ”25  pit 
1 0 , 0  5  p  1 1  1 0 }  0  5 
pH-  10>  7505 Pit 
-10} 758 

67:  1 ine  2} 1 . 55 
pH  10}  457. 8656 
78727}  1 5  pH  - 
10} 457.86567872 
7} 2  5  pen 

68:  pit-  -10}  2. 04 
424683675 } -2  5 
pH  10}  2. 044246 
83675} -15  line  5 


49:  The  program  is  sent  down  to  subroutine:  "tinr 
ish"  if  the  U  value  of  118.8  (24th  point  from 
the  end  of  the  probe  drop)  is  reached. 

5fS:  If  the  full  deviation  plot  is  not  yet  fin¬ 
ished,  the  segment  is  moved  one  point  ahead,  the 
value  of  U  is  incremented  by  .05,  variables  are 
reset  and  the  program  is  sent  back  to  repeat  the 
previously  described  process  for  another  segment 
of  data  points. 

51:  thru  54:  These  lines  are  identical  to  lines 
24  through  27, except  that  the  program  is  sent 
down  to  "Tllplt"  rather  than  "T7plt". 

55:  Line  55  sends  the  program  back  to  line  28  to 
inform  the  operator  that  the  desired  probe  was 
not  found  on  this  cassette. 

56:  thru  69:  These  lines  are  practically  identi¬ 
cal  to  lines  29  through  42.  The  two  major  excep¬ 
tions  are  that  flag  4  is  complemented  in  line  56; 
and  the  depth  equation  for  the  Til  probes  (line 
58)  is  different  from  the  T7  probe  depth  equation 
(line  31.) 

70:  and  71:  Lines  70  and  71  are  the  first  two 
lines  of  the  subroutine  "deg".  They  ask  the  oper 
ator  to  enter  the  amount  of  deviation  which  the 
plot  will  cover  in  degrees  C  on  either  side  of 
the  mean  line.  This  number  can  be  anything  be¬ 
tween  0°C  and  5°C. 

72:  thru  77:  These  lines  use  the  value  of  E 
(entered  in  line  71)  to  scale  the  deviation 
plotting  area  to  agree  with  that  value  and  to  set 
up  the  X-  and  Y-axes  for  the  plot. 

78:  Line  78  calculates  the  49  weighting  values 
used  to  obtain  a  weighted  average  of  each  data 
segment  studied  by  the  program. 

79:  Line  79  returns  the  program  to  line  44  if 
the  probe  to  be  plotted  is  a  T7. 

80:  thru  86:  These  lines  are  practically  identi¬ 
cal  to  lines  44  through  50.  The  main  differences 
are  in  the  equations  in  lines  82  and  46  and  also 
in  the  finish  times  in  lines  85  and  49. 
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87:  and  88:  Lines  87  and  88  are  the  first  two 
lines  of  subroutine  "Dylon".  In  line  87,  the  Dy- 
lon  unit  is  unlistened.  Then  the  operator  is 
asked  if  he  wishes  the  Dylon  unit  to  be  rewound. 
If  an  operator  is  plotting  files  in  chronological 
order,  then  there  is  no  need  for  him  to 
rewind  the  Dylon  tape  and  search  the  entire  tape 
for  his  desired  file  each  time.  Line  88  rewinds 
the  Dylon  tape  if  the  operator  chose  to  do  so  in 
line  87. 

89:  and  9j 3:  Lines  89  and  90  enable  the  service 
request  on  the  Dylon  unit  so  that  the  plotting 
routine  will  not  try  to  read  and  plot  file  marks. 
Then  the  start  time  and  probe  type  are  read  into 
memory  strings  from  the  Dylon  tape. 

91:  Line  91  spaces  the  Dylon  tape  forward  to  the 
next  file  and  sends  the  program  back  to  look  at 
the  start  time  of  that  file  if  the  current  start 
time  does  not  match  the  operator-entered  start 
time  for  the  desired  probe. 

92:  and. 93:  These  two  lines  read  in  either  all 
T7  data  from  the  correct  probe  or  all  Til  data 
depending  upon  the  operator-selected  probe  type. 

94:  and  95:  These  two  lines  send  the  program 
back  to  either  subroutine  "T7plt"  or  "Tllplt" 
depending  upon  the  previously  entered  probe  type. 

96:  Line  96  comprises  the  "finish"  routine  of 
the  program  and  is  reach  t:\ly  when  the  program 
has  finished  execution.  It  writes  the  "IN"  com¬ 
mand  to  the  plotter,  which  returns  the  pen  to  the 
chart  luad  position.  Then,  the  calculator  prints 
the  message,  "To  plot  another  probe  press  RUN." 
The  program  then  ends. 


69:  pit-  1  ?  ~ 2 6 ? 
IMbl  "MEAN" 5 
pit  0) -285  pit 
8  ?  8 1  2  5  p  1 t  .  5  >  - 
95  Pit  -.  5> -95 
P  1  t  0  >  0 
70:  "de-g" :  pen? 
beepjdsp  "No.  ■ 
or  decrees  dev. 

on  each  side"? 
wait  250O5 beep 
71 :  ent  "of  MEAN 
(Nunber  bet wee 
n  8  and  5 ) " > E 
72:  sc  1  -E >  E > 

750 j -45 

73:  if  E=1 5 fxd 
2  5  xax  758 > .25)- 
1 »  l » 1 5  *to  77 
7*:  if  E=25  f xd 
25 xax  758 > .5>- 
2j  2 j 1 5  eto  77 
75:  if  f rc (E) =95 
fxd  05  xax.  758 » 
lj-EjE>15sto  77 
76:  fxd  2 5 xax 
758  > . 25E  j -E  >  E  >  1 
77:  yax  0)0>0)0 
73:  fxd  11  if  or 
J=-(H-1)  to  N- 
15  ( 1  +, cos  ( 1 88  Jx 
H))/2N*DCJ3  5 
next  J 

79:  if  f 1*4  5  ret 
80:  for  I-F  to 
G  by  25  i t f  CE4?  Cl 
1 1  +  13  HB  CM3  J 
B CM3 /I O80* B CM3  5 
M+l*M5next  1 

Si:  HI  5  for  J=- 
(H-l)  to  N-S  5 
0 f J3  *B  CI3  +H5  H+ 

K * K 5 1  +  HI 5  next 
J 

32:  U+.05+U5  ii.7? 
79U-. 0O02557UT2 
*V 

S3:  B [253 -K+L 5 
if  absfL)<-E5 
pit  L» V?  gto  S5 
34:  psn 

85:  if  11=267.3  5 
etc  "finish" 


86:  F+2+F5  G+2+G5 
U+.85+U5 1+MJ 
0->K5  -eto  88 

87:  "Dylon" :c«d 
7» "?"5 ent  "Rewi 
nd  Dylon  tape? 

(y  or  n)?"> 
F$ 

S3:  if  F*="y"5 
wrt  784) "OKI "5 
wait  2088  . 

S9:  wrt  784) "SO" 
5  ci'id  7)"? "5  wrt 
784) "R1V14“ 


90:  red  785) C$5 
wrt  704) "R1 V9" 5 
red  785) Dt 5 wrt 
704) "R32009V100 
0" 

91 :  if  C$ Cl ) 1 13 # 
B$ Cl  1 113  5  wrt 
784) "K1 " 5  eto  89 
'92:  if  f ls55 f or 
1=1  to  4799  by 
25  red  785.1)Ri 
fti  (R) *E$ Cl ) 1  + 
13  5  next  I5gto 
94 
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FILE  14 

VARIABLE  CROSS-REFERENCE  AND  DESCRIPTION  ....... 

FLAG  LISTING  AND  DESCRIPTION 

A:  Indicator  to  the  program  whether  the  operator 
has  chosen  to  plot  from  the  cassette  tape  or  the 
Dylon  tape. 

B:  Variable  used  as  a  plotting  aid  in  an  equa¬ 
tion  for  plotting  the  dashed  lines  which  cross- 
hatch  the  plotting  grids. 

C:  Track  indicator  variable  for  T7  probes. 

D:  File  number  indicator  variable  for  T7  probes. 

i  E:  Operator- entered  scaling  factor  for  the  devi¬ 
ation  plotting  grid.  This  number  is  in  degrees 
Centigrade  and  ranges  from  fJ°C  to  5°C. 

F:  Used  to  indicate  the  starting  point  of  the 
current  segment  of  data  which  is  being  plotted. 

G:  Used  to  indicate  the  ending  point  of  the  cur¬ 
rent  segment  of  data  which  is  being  plotted. 

H:  As  each  point  is  multiplied  by  its  correspond¬ 
ing  weighting  value,  the  result  of  that  multipli¬ 
cation  is  stored  into  the  variable  H. 

I:  I  is  used  as  a  counter  for  the  "for, next" 
loops  (similar  to  FORTRAN  DO  loops)  in  the  pro¬ 
gram. 

J:  J  is  used  as  a  counter  for  the  "for, next" 
loop  used  to  multiply  each  data  value  by  its  cor¬ 
responding  weighting  value. 

'  K:  K  represents  the  weighted  average  of  the  cur¬ 
rent  data  segment  being  plotted. 

Ls  L  represents  the  deviation  of  the  midpoint  of 
the  current  data  segment  from  the  value  of  K. 

M:  M  is  used  to  position  each  data  value  into 
its  proper  place  in  the  array  B[*]  as  it  is 
called  in  from  memory. 

N:  N  is  used  to  indicate  to  the  program  the  ex¬ 
act  positioning  of  each  weighting  value  in  array 
D  [*]  . 


I 

I 


v  i-i 


L 

L 

L 


A 

if 


Jl 

I 

l' 

P 

*1 

I 


1 


L 

L 


il L 


$ 


p 

54 

Q 

34 

R 

93 


33 
59 
63 

U 

31 
46 
50 
53 
82 
35 

V 

46 
61 

fi  [*]  2 

B  C#3  2 
44  4 
SO 


31 

fll 

Bl 

52 

GI¬ 

BS 

56 

01 


El 

32 

80 


0 

51 

53 

c;  o 

54 

0 

51 

54 

0  . 

34 

34 

61 

6 1 

61 

92 

92 

93 

32 

32 

32 

33 

33 

59 

59 

60 

68 

30 

31 

31 

31 

37 

46 

46 

46 

49 

58 

57 

58 

58 

58 

64 

82 

82 

82 

86 

86 

3 1 

33 

34 

47 

58 

60 

S3 

83 

2 

34 

61 

■“i 

u. 

44 

44 

45 

47 

80 

80 

81 

83 

2 

45 

78 

2 

4 

21 

£ 

5 

25 

91 

21 

22 

24 

v  Q 

ba.  . 

51 

52 

98 

91 

21 

■"I  '*1 

u-  d 

24 

51 

56 

90 

21 

j-i 

Cl  w 

24 

44 

51 

59 

92 

93  - 

■  2  ‘  ‘ 

*> 

0:  Track  indicator  variable  for  Til  probes. 

P:  File  number  indicator  for  Til  probes. 

Q:  Used  to  position  each  invalid  data  value  into  ? 
the  invalid  data  point  storage  array  A[*] . 

R:  Each  data  value  read  from  the  Dylon  unit  is 
temporarily  stored  in  the  variable  R  before  bfeing 
converted  to  integer  precision  for  more  permanent  ■- 
storage  in  calculator  memory. 

T:  Used  to  store  and  plot  each  data  (temperature) 
value.  T  is  the  X  coordinate  of  each  plotted 
point  on  the  main  probe  profile  half  of  the  plot. 

U:  U  represents  the  elapsed  time  since  the  firsts 
valid  data  point  of  any  probe. 

V:  V  is  used  to  store  the  result  of  the  depth 
equations  for  either  probe  type.  V  is  the  Y  coor¬ 
dinate  of  all  points  on  the  main  probe  profile 
and  the  deviation  curve  halves  of  the  program. 

At*) :  Array  At*)  is  used  to  store  any  points 
which  do  not  fall  within  the  range  of  1J3°C  to 
30°C  in  the  main  probe  profile. 

B[*]:  Used  to  store  the  49  data  points  of  each 
segment  of  data  which  is  averaged  and  then  tested 
for  deviation. 

D l*] :  Used  to  store  the  49  weighting  values  de¬ 
rived  from  a  cosine  bell  curve  which  correspond 
point-for-point  with  the  current  49  data  values 
which  have  to  be  average  in  accordance  with  these 
weighting  values. 

A$:  Probe  type  of  probe  to  be  plotted. 

B$:  Probe  start  time  (to  the  nearest  minute). 

C$ :  Start  time  of  probe  which  is  read  from  tape. 
(B$  is  the  operator-entered  start  time  of  the 
desired  probe) . 

D$ :  Probe  type  of  probe  which  is  read  from  tape. 
(A$  is  the  operator-entered  probe  type  of  the 
desired  probe) . 

E$:  Main  data  string  for  probe. 
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F$  27  8  F$:  Stores  the  operator-entered  answer  to  the 

87  88  question  "Do  you  wish  to  have  the  program  stop 

for  pen  changes?  (y  or  n)u. 


f  1  a 


8  28 

r  1  a  -?  t  : 

0  5b  }Sr 

f  l  Cl  •=?  5  5 


FLAG  3:  Flag  3  is  used  to  indicate  to  the  pro¬ 
gram  that  the  operator  does  desire  a  colored 
plot  and  has  elected  to  have  the  program  stop  for 
pen  changes. 

FLAG  4:  Flag  4  is  used  to  indicate  to  subroutine 
"deg"  where  the  program  should  be  sent  after  the 
end  of  the  subroutine  has  been  reached.  If  flag 
4  is  set,  then  the  subroutine  returns  to  the  T7 
section  of  the  program  from  which  it  was  sent  in 
the  first  place.  If  flag  4  is  not  set,  the  pro¬ 
gram  simply  continues  with  the  next  line  after 
the  subroutine  itself.  This  subroutine  is  nested 
inside  the  Til  section  of  the  program  so  the  pro¬ 
gram  would  then  continue  with  Til  plotting  opera¬ 
tions. 

FLAG  5 j  Flag  5  is  used  to  indicate  to  the  pro¬ 
gram  whether  the  probe  to  be  plotted  is  a 

T7  probe.  If  flag  5  is  set,  then  the  probe  is  a 
T7,  if  it  is  not  set  then  the  probe  is  a  Til. 


